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EDITORIAL 


THËORIC 
CHANGE 

otre revue n'attire pas la publicité, comme le lecteur a pu le remarquer. Or chacun sait qu'une 
revue, sans apport de publicité, a quelques difficultés à se rentabiliser. 

Cette situation nous amène à modifier la structure de cette revue spécialisée sur ORIC et 

Du même coup, nous abaissons le prix d'achat, ce qui, somme toute, est une bonne nouvelle ! 

Que les abonnés se rassurent : la durée de l'abonnement est prorogée d'autant. 

N'hésitez pas à nous écrire, à nous faire part de vos problèmes, de vos travaux. 

S. FAUREZ 

Directeur de Publication 



ATM OS. 


AVEZ-VOUS 

LA 

COLLECTION 

COMPLETE 

DE 

THEORIC ? 



COMMANDE ANCIENS NUMEROS 


(valable jusqu'à épuisement des stocks) 


Numéros.30 F pièce 

Numéro 11 (Hors Série).25 F pièce 

ATTENTION : NUMERO(S) EPUISE(S) :1.2.3.5 

NOM ..Prénom . 

Adresse . 

Code Postal .Ville . 


Frais de port : 6,50 F jusqu'à 2 exemplaires 

9,50 F jusqu'à 4 exemplaires 
13,50 F jusqu'à 6 exemplaires 


|Ci-joint, chèque bancaire ou postal de 
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• Une ligne téléphonique est à votre disposition, vous met¬ 
tant en contact direct avec la rédaction. Ceci est un ser¬ 
vice sans égal ! Respectez simplement les horaires et les 
jours que nous vous indiquons : 

MERCREDI de 9 h à 12 h et de U h à 17 h. 
VENDREDI de 9 h à 12 h seulement. 

Tout appel en dehors de ces créneaux sera refoulé : 
dépensez pas inutilement votre argent ! 


Le numéro 


99 . 52 . 98 . 11 . 



SOMMAIRE 



THIORIC 

Publication mensuelle 
Editions SORACOM 

La Haie du Pan - 35170 BRUZ 
Tél.: 99.52.98.11 
lignes groupées 
Télex : 741 042 F 

Code APE 

5120 

Directeur de publication 

Sylvio FAUREZ 

Rédacteur en chef 

Denis BONOMO 

Secrétaire de rédaction 

Florence MELLET 

Maquette 

Jean-Luc AULNETTE 

Patricia MANGIN 

Abonnements, Ventes, 

Réassorts 

Catherine FAUREZ 

Composition 

FIDELTEX 

Impression 

VAN DEN BRUGGE 

Distribution 

NMPP 

Publicité 

IZARD CREATIONS 
Tél.: 99.31.64.73. 

THEORIC est un mensuel édité par 
la Sari SORACOM, expirant le 22 
septembre 2079, au capital de 
50 000 francs. S. F AU REZ en est le 
gérant, représentant légal. L'action¬ 
naire majoritaire est Florence 
MELLET. 

Dépôt légal à parution 
Copyright© 1986 

Les articles et programmes que nous publions 
dans ce numéro bénéficient pour une grande 
part du droit d'auteur. De ce fait, ils ne peu¬ 
vent être reproduits, imités, contrefaits, même 
partiellement sans l'autorisation écrite de la 
Société SORACOM et de l'auteur concerné. 
Les différents montages présentés ne peuvent 
être réalisés que dans un but privé ou scienti¬ 
fique mais non commercial. Ces réserves 
concernent les logiciels publiés dans la revue. 


Le dessin de couverture extrait du 
logiciel LORIGRAPH et imprimé à 
l'aide du programme de recopie 
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20, rue de Montreuil - 94300 VINCENNES - © (1 ) 43.28.22.06 

du mardi au vendredi :10h30à13h - 15hà19h — le samedi : 10 h 30 à 19 h 

REVENDEUR OFFICIEL AGRÉÉ ORIC-FRANCE 



SYNTHÉVOC 1 


K> 



'Il ne lui manque que la parole', synihé VOCÎ la lui donne ! 
Très performant ce synthétiseur vocal va vous permettre 
de rendre votre ordinateur plus bavard qu'un politicien en 
campagne ! t 

□ synthétiseur vocal 33U 


[\ \ 


MOOEM 

Votre ORIC s'ouvre sur ( extérieur II "discute' 
avec ses semblables et accède au réseau "minitel' 
Fourni avec interface intégrée et logiciel 
□ modem.. 1490 F 



Interface tous jeux 

Grâce à cet interface programmable vous utili¬ 
serez vos joysticks avec tous vos logiciels de jeux. 
□ interface tous jeux 360 F 


Rallonge Péritel 

Ne soyez plus 'collé" à l’écran 1 
□ rallonge 95 f 


m 
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Interrupteur 
Ne courrez plus le risque de faire sauter la ROM 
□ interrupteur d'alimentation 85 F 



Grâce à cet interface vous pourrez brancher jusqu'à 3 appareils 
en sortie péritel sur votre moniteur ou téléviseur (câble rac 
cord non fourni) interface multi pentel 495 f 

Câble péritel male-femelle : nécessaire pour connecter I inter 
face multi péritel il peut aussi être utilisé comme rallonge 
péritel pour tout appareil 

□ rallonge péritel ( 1.20 m) 235 F 



Imprimante Smith Corona Fastext 80 
- 80 caract /sec., impression bidirectionnelle, 
entrainement par friction, interf. contromc. buffer 
intégré, écriture normale ou condensée 
□ Fastext 80 . 1995 F 


Magnétophone 

Ce magnétophone spécialement conçu pour les 
micro-ordinateurs vous évitera bien des soucis 
Entrée OIN ou Jack Niveau réglable. Témoin 
sonore et lumineux Alimentation intégrée 
magnétophone 360 F 



0 


l'ensemble 

3490 F 


JASMIN 2 

Le lecteur de disquette que votre One préfère 
Permet, entre autres, de recopier sur disquettes 
les logiciels (même plombés) sur cassette. 


□ lecteur double tète 


2.490 F 
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Imprimante MCP 40 

L'imprimante 4 couleurs aux couleurs d'ORIC f 
□ imprimante MCP 40 990 f 


Cassettes vierges C20 

□ les 5. 45 F 

D les 10 80 F 

□ disquette vierge 3 pouces. 35 F 


Câble Imprimante 

Vous permet de connecter votre Oric à n'importe 
quelle imprimante au standard "centronic" 

□ câble imprimante tiOF 

Câble Moniteur 

Pour brancher votre Oric à un moniteur mono¬ 
chrome 

□ câble moniteur 95 F 
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□ 2 titres 


145F 






□ 3 titres 


195 F 



PROMOTION : dans la liste ci-dessous 

□ 4 titres 


220 F 






□ 5 titres 


250 F 






□ 10 titres 


395 F 



□ arsène lapin 

□ ghastman 

□ loneraider U rat splat 



□ basic étendu 

□ hunchback 

G mushroom □ talisman 



□ dedal 

□ image 

□ oric mon 

□ titan 




□ défense force 

□ msect insamty 

□ pasta blasta □ ultimazone 



□ gest 










LOGICIELS CASSETTES 





□ 1815 

160F 

□ don juan 

150F 

O dialogue 

120F 



□ 3 D fongus 

140F 

□ dossier 

140 F 

LJ morpion 

120F 



□ 30 maze 

100 F 

G durendal 

120 F 

□ mots croisés 

120F 



□ 3 D munch 

140 F 

D élysee 

145 F 

□ multicalc 

190 F 



□ allaite en or 

145 F 

G facturation 

180F 

D mushroom mamac 

100F 



□ aigle d'or 

180F 

G finances 

120F 

□ oenol'oric 

100F 



□ as des as 

160 F 

G lire flash 

120 F 

□ optimum 

140F 



[ I assimil 

510F 

G flipper 

180 F 

' 

140 F 



□ atlantis 

140F 

G flûte inca (la) 

120F 

□ oric miner 

135 F 



□ basic turbo 

140F 

G formule one 

13b F 

□ origraph 

150F 



□ bering 

150F 

□ frelon 

120F 

□ orion 

95 F 



□ bibliofiches 

120F 

G fromage 

95 F 

□ panic 

95 F 



□ bombyx 

120F 

G galaxion 

95 F 

G planette bleue 

120 F 



[1 brique a brac 

65 F 

Clgengraph 

140 F 

□ playground 

95 F 



□ budget familial 

135F 

G ghost gobbler 

100 F 

[ J polyfichier 

180F 



□ business man 

140F 

G godilloric 

90 F 

□ probe 3 

100F 



□ calcul mental 

120F 

G gravitor 

90 F 

□ rabbit 

65 F 



□ calcul on 4* me 

120F 

G green cross toad 100 F 

□ rat splat 

105 F 



□ calorie 

100 F 

G hades 

250 F 

□ rd v de la terreur 

95 F 



□ caractor 

100F 

G hist'oric 

100 F 

□ retour du dr gemus 

160 F 



□ carnet d'adresses 

120F 

G hobbit (the) 

180F 

□ reversi 

95 F 



□ categorie 

95 F 

G hopper 

70 F 

□ reverse 

90 F 



[ ‘ challenger 

130F 

G hyperspace 4 

120F 

□ s.a.g.a 

150 F 



□ cheops 

140F 

G initiation à la cao 180 F 

C secret de kaipur (le) 

130 F 



□ chess 

140 F 

G intox et zoé 

180 F 

□ secret du tombeau (le) 140 F 



□ cité maudite (la) 

140F 

G invader 

90 F 

C ] Stanley 

120F 



i ' clavidact 

115F 

G invader 

100 F 

□ star 

120F 



□ damac (jeu de dames] 

100F 

G karatéka 

99 F 

□ starter 

129 F 



□ elephorm 

100 F 

□ kit écran 

120F 

□ stress 

120 F 



□ elephcolor 

100 F 

G las végas 

95 F 

□ styx 

120F 



f ! dialogue 
□ LM 

120 F 

O lièvre et la tortue (le) 100 F 

□ super copy écran 

120F 



110F 

□ light cycle 

50 F 

□ super jeep 

120 F 



□ édit plus 

85 F 

G locus 

95 F 

□ terminus 

120F 



□ cobra pinball 

140F 

O logo VI. 

295 F 

□ tic tac. 

120F 



□ cobra 

55 F 

□ loiigraph 

290 F 

□ tortue logic 

150F 



□ colorie 

95 F 

G loritel 

395 F 

□ tour fantastique (la) 

120F 



□ compilateur graphique 250 F 

GJotoriciel 

120F 

□ tour du monde en 80 120 F 



□ concours hippique 

70 F 

□ macadam bumper 160 F 

□ transat one 

140F 



□ conjugaison 

120F 

D masque d'or (le) 149 F 

□ trésor du pirate (le) 

95 F 



□ course lettre 

95 F 

G master paint 

250 F 

□ triathlon 

150F 



□ crypt show 

100 F 

0 meurtre à qde vitesse 180 F 

□ tyrann 

185 F 



□ CW morse 

180 F 

O microciel 

120 F 

□ vision 

120 F 



[ 1 D bug 

140 F 

G microgéo 

140 F 

□ vortex 

260 F 



□ dam buster 

100 F 

G millionnaire (le) 120 F 

□ world war 3 

95 F 



□ dao 

100 F 

□ mission delta 

95 F 

□ xénon 

100F 



□ datasave 

120 F 

G mission impossible 120 F 

□ xénon 3 

105 F 



□ détective 

149F 

G moniteur 

140 F 

□ yi king (le) 

180F 



D diamant ile maudite 

160F 

EJ monopolic 

160 F 

□ zoolympics 

120F 



□ the qutll 

195 f 

□ montségur 

140F 

□ zorgons revenge 

100 F 



LIVRES 


LOGICIELS DISQUETTE (JASMIN) 



□ guide pratique 


78.50 F 

□ assembleur 


490 F 



□ découverte de l oric 


95 F 

□ easy text 


590 F 



□ oric à l'affiche 


95 F 

□ multifich 


590 F 



□ oric atmos pour tous 


105 F 

□ cale 


590 F 



□ 52 prog. pour tous 


105 F 

□ forth 


590 F 



□ l'assembleur de l'atmos 

95 F 

□ jasmitel 


490 F 



□ interfaces pour oric 


59 F 

□ mathégraph 


249 F 



□ loric à nu 


150F 

□ finances 


219F 



□ programmes en lang mach 

95 F 

□ conquérants 


219F 



□ manuel réference tome 1 

138 F 

□ zonga 


199 F 



□ manuel référence - tome 2 

120F 





□ moniteur monoch. sonore 995 F 
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L'IMPRIMANTE PERSONNELLE 
COULEUR "OKIMATE 20" 
L'OKIMATE 20 est la première imprimante per 
sonnelle dans sa gamme de prix à offrir une 
véritable impression couleur Une tète d'impres 
sionâ 24 éléments crée plus de lOOnuancesd'une 
définition et d une netteté exceptionnelles. 
Interface centronic 

□ okimate 20 2950 F 




TIRVITT 2 

Esthétique, robuste, pratique le TIRVITT 2 vous séduira I 
Contacts par micro switches. un contacteur sous le 
socle permet le choix 4 ou 8 directions. 

□ TIRVITT 2 150 F 


1 


□ quickshot 2 . 140 f 


nouveau 



Le ~must’ pour les amateurs de graphisme. Utilisée 
par la maiorité des créateurs de logiciel cette tablette 
vous séduira par sa simplicité d'utilisation et la qualité 
"top niveau' des résultats obtenus, (ex. options : faire 
des points, traits, boites, cercles, texte, remplir, “zoom'... ) 
OGRAPHISCOPE II. 1490 F 

INTERFACE PERITEL/UHF 

Cette interface vous permet de brancher tout 
appareil ayant une sonie péritel sur un télé 
viseur n'ayant qu'une entrée antenne. 

□ l'interface PH 560 550 F 



Mannesmann MT 80S ' 

L'impnmante'top niveau" en informatique fa¬ 
miliale 100 caractères par seconde Papier 
normal ou informatique. Entrainement par 
friction ou traction. Si vous recherche; une 
qualité "courrier", la MT SOS vous donnera 
plus que des satisfactions tant pour le lexte 
que pour le graphisme 

□ Mannesmann MT 80S 3350 F 


□ bloc alun onc 


160 F 


COMMENT COMMANDER : 

- Cocher le(s) article(s) désiré(s) ou faites-en une liste sur une feuille à part - Faites le total + frais de port (20 F pour achats inférieurs à 500 F. 40 F de 500 à 1000 F. 60 F pour tout achat supérieur à 1000 F). 

NOM_PRENOM :_ TEL :_ 

ADRESSE :_CODE POSTAL : _ VILLE : _ 


Mode de paiement : □ chèque □ mandat □ contre-remboursement (prévoir 20 F de frais) 

envoyer le tout à : ORDIVIDUEL 20, rue de Montreuil 94300 VINCENNES 


réseau 


ORDÎa<A 



















































70 n°21 


ABONNEZ 


VOUS 



" valable POU" ’’, 

__ ; 

ch- -se ; 

mo le sur le p roC , 15 do mois- 1 

Pour être p"* n£>os por venir ovan . prénom . 

nom . . . 

A dressa . Ville • • • 

|Code P° s,al Signature 

Pay* 




SORACM 


LES DISQUETTES DE THEORIC 


Tous les programmes de THEORIC, groupés par deux numéros sur une disquette. Plus de perte de temps 
pour les taper... Existe pour le moment en JASMIN seulement. 


Le prix : 135 F pour les abonnés (joindre impérativement l'étiquette), 165 F pour les autres. 
Avertissement : les programmes stockés sur ces disquettes sont tels que parus dans THEORIC. A vous de les 
adapter à vos besoins et au fonctionnement sur disque lorsque nécessaire. 


N° 1 THEORIC n° 4 et 5 
N° 2 THEORIC n° 6 et 7 
N° 3 THEORIC n° 8 et 9 
N° 4 THEORIC n° 10 et 12 
N° 5 THEORIC n° 13 et 14 
N° 6 THEORIC n° 15 et 16 
N° 7 THEORIC n° 17 et 18 
N°8 THEORIC n° 19 et 20 
N° HS THEORIC HORS SERIE 
K H) 


VOLUME : T019&20 


U LE0RIC1 .BAS S 


74 SECTORS 







U 

TABLEAUX. BAS 

S 

6 SEC’ORS 

U 

EUROPE 

.BAS 

5 

52 5EC T 0RS 

J 

INTERPRE.BAS 

S 

35 SECTORS 

U 

BULLELM 

.BAS 

S 

6 SECTORS 

*J 

MYSTERE .PAS 

S 

16 SECTORS 

U 

MIROIR 

.BAS 

S 

1» SECTORS 

J 

PO I SSA,V*. BAS 

S 

55 SECTOPS 

U 

DEUXSPHE.BAS 

S 

R SECTORS 

U 

ECRAMIXT.BAS 

S 

8 SECTORS. 

U 

RwSED 

.BAS 

s 

4 SECTORS 

U 

FASTEXSO.BIN 

C 

3 SECTORS 

U 

DUMP 

.BAS 

5 

7 SECTORS 

U 

UTILIDAT.BAS 

s 

10 SECTORS 

U 

CHECSEC 

.BAS 

s 

5 SECTOPS 

U 

UTILITEL.BIN 

s 

3 SECTORS 

U 

COMPTE 

.BAS 

s 

18 SECTORS 

U 

UTILITEL.BAS 

s 

20 SECTORS 

U 

FENETRE 

.î IN 

3 

16 SECTORS 

U 

VALOCAT .BAS 

s 

14 SECTORS 

U 

UTIL4 

.BAS 

S 

14 SECTORf 

U 

VAL0CT01.BAS 

s 

8 SECTORS. 

U 

LOGO 

• BAS 

S 

14 S£C T C9S 

ü 

MENULE01.BIN 

5 

10 SECTORS 

U 

MININTER.BAS 

c 

7 SECTORS 





U 

CODASC 

.BAS 

s 

6 SECTORS 

259 SECTORS RREE 



BON DE COMMANDE 
DES DISQUETTES THEORIC 


Je commande les disquettes 1 2 3 4 5 HS 6 78 
Ci-joint : 135 F par disquette et mon étiquette abonné 
165 F par disquette cor je ne suis pas abonné 


Soit au total la somme de 
que ci-joint. 


F réglée par chè- 


NOM .Prénom. 

Adresse. 

Code Postal .... Ville . 



















ENTENTE CONJUGALE 
DE M. CLAUDE HESTROFFER 
57 BOULAY 

J'ai fini par résoudre un problème 
auquel j’étais confronté depuis 
des mois... Vous me direz peut- 
être : encore un malade du da¬ 
vier qui va nous psalmodier sa vie 
avec sa bécane... Mais, je ne suis 
pas si farfelu que cela, car sinon 
je ne serais pas cité dans votre 
revue préférée : Usez donc plutôt 
la suite : 

La duchesse JASMIN et le duc 
ATMOS formaient un ménage 
heureux et uni lorsqu’intervint un 
troisième personnage : le marquis 
Poste DE TELEVISION. Ne pou¬ 
vant rester insensible à la noble 
particule de cet illustre souverain, 
la duchesse JASMIN tomba sous 
l'emprise enjôleuse des doux dis¬ 
cours électromagnétiques du 
marquis qui avait décidé de bri¬ 
ser le couple ducal afin de deve¬ 
nir l’amant de la duchesse. Il y 
parvint si bien que la duchesse 
finit par ne plus percevoir la voix 
de son maître, le duc A TMOS. 
Je décidais d'intervenir car 
j’avoue que j’avais été contraint 
de séparer les amants, comme on 
vous le conseille dans THE O PIC 
n° 18, afin que le couple ducal 
communique. Mais cela nuisait 
au design de mon ensemble infor¬ 
matique. Comme il aurait été vil 
et déshonorant pour le marquis 
DE TELEVISION de résider dans 
un blindage relié à la terre 
(conseils de THEO PIC n° 18), 
j’œuvrais différemment. 

Je tapissais purement et simple¬ 
ment la résidence de dame JAS¬ 
MIN qui séjourne à présent dans 
une étagère immédiatement sous 
le marquis DE TELEVISION, 
avec... une feuille d'aluminium ! 
Je vous affirme que depuis que 
la duchesse réside sous ce frêle 
mais ô combien efficace bouclier, 
à quelques centimètres du mar¬ 
quis, celui-ci ne parvient plus à lui 
faire tourner la tête (de lecture, 
évidemment), et le couple ducal 
communique paisiblement et a 
beaucoup d'échanges de logi¬ 
ciels. 

De cette façon, j’espère avoir 
répondu au SOS lancé par Mon¬ 
sieur Jacques BAPBEAU dans 
THEORIC n° 18. 



TUécfifc' 
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TRANSFERTS DE 
PROGRAMMES DE 
CASSETTE A DISQUETTE 

Toujours le même problème ! On 
achète un drive et on veut pou¬ 
voir transférer les programmes, 
que l'on a achetés sur cassette, 
vers la disquette. Là, les problè¬ 
mes commencent car rien n'est 
prévu ! 

Nous avons récemment eu le 
témoignage de lecteurs ayant 
contacté LORICIELS (pour LORI- 
GRAPH) et COBRA SOFT (pour 
PINBALL). La question était : 
Pourriez-vous assurer le transfert 
de cassette à disquette, le logi¬ 
ciel n'existant pas directement 
sur disquette ? La réponse : Non ! 
En conséquence, puisque ce tra¬ 
vail ne peut pas être fait par les 
éditeurs, nous invitons nos lec¬ 
teurs à nous indiquer tous les 
trucs qu'ils ont trouvés pour 
transférer les programmes 
commerciaux, de cassette à dis¬ 
quette. 

Ce n'est pas là une incitation au 
piratage, loin s'en faut, mais la 
tentative de combler une lacune 
importante du marché de l'ORIC : 
les logiciels sur disquettes n'exis¬ 
tent, pour ainsi dire, pas ! 

Pas d'étiquette 
abonné ou pas 
d'enveloppe self- 
adressée égale pas 
de réponse au 
courrier. Qu'on se 
le dise ! 


_courrier. 

Samuël SCHAUSS 
86 CHATELLERAULT 

Comment peut-on émettre, avec 
l’instruction SOUND de T AT¬ 
MOS, une fréquence de 697 Hz ? 
Le paramètre "hauteur” de l'ins¬ 
truction SOUND, appelé H dans 
le manuel utilisateur page 204, 
est déterminé de la manière sui¬ 
vante : H = 62500/F où F est la 
fréquence Hertz. Ainsi, pour pro¬ 
duire un son d'environ 697 Hz, 
on prendra H = 90. 

Nous reproduisons ci-après la let¬ 
tre d'un de nos abonnés car elle 
est significative d'un courrier 
assez important que nous rece¬ 
vons tous les mois. Hélas, THEO- 
RIC n'est ni le fabricant, ni le SAV 
du matériel ORIC et nous ne pou¬ 
vons rien faire pour vous, sinon 
de déplorer le laxisme avec lequel 
est traité ce type de matériel. 
Certains revendeurs baissent les 
bras devant un tel état de fait... 
C'est dommage, maintenant que 
le TELESTRAT semble vouloir 
montrer le bout de son nez, il ne 
faudrait pas que les profession¬ 
nels de la micro s'en désintéres¬ 
sent... au profit d'autres appa¬ 
reils. 


Christophe PENARUBIA 

J'ai eu un problème avec mon 
ORIC. Alors, je l'ai envoyé en 
réparation et, la garantie étant 
expirée, j'ai du payer 450 F. 
J’ai reçu à la place un ORIC qui 
n 'était pas le mien. 

Cet ordinateur est légèrement 
tordu de la base, ce qui cause le 
mauvais fonctionnement de la 
barre d'espace (très ennuyeux). 
Ce n'était pas tellement grave 
mais, à présent, les autres tou¬ 
ches commencent à être affec¬ 
tées et je n'ai nulle envie de 
repayer des frais pour le changer. 
Je crois qu'avant d'envoyer du 
matériel à quelqu'un, on devrait 
s'assurer de son bon fonctionne¬ 
ment ! A signaler quand même 
que depuis 3 ans, j’ai renvoyé 
l’ORIC au moins 7 fois ! Alors, si 
vous n 'y mettez pas du sérieux, 
les consommateurs ne peuvent 
pas être satisfaits ! Alors, que 
puis-je faire pour cet ORIC ? 
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ViïRMEDU 

ÜOGICEL 


"TBD” 

(ICV) 

Utilitaire 

Support : disquette "SEDORIC” 

Des utilitaires pour le MICRO- 
DISC sous SEDORIC commen¬ 
cent à voir le jour. Sous ce nom 
mystérieux se cache un logiciel 
de transfert, permettant de pas¬ 
ser sur disquette vos meilleurs 
logiciels en cassette : TBD = 
Transfert de Bande à Disque. 
Livré sans notice, de par sa sim¬ 
plicité d'emploi, TBD exige d'être 
chargé dans un ORIC fraîcherrtènt 
initialisé. Une mise en garde, 
vous conseillant de ne pas 
enfreindre la loi sur le copyright, 
apparaît alors, suivie de quelques 
conseils pour l'emploi. 

La suite des opérations est fort 
simple : le magnéto étant relié à 
l'ORIC, une disquette présente 
dans le MICRODISC, vous pou¬ 
vez alors commencer les trans¬ 
ferts, sous contrôle de TBD. Un 
pointeur à réajuster, et le pro¬ 
gramme pourra être sauvegardé 
sur disque dans sa version défi¬ 
nitive. 

TBD ? Un logiciel bien pratique 
qui évitera bien du tourment à 
tous ceux qui ne savent pas trop 
comment s'y prendre pour trans¬ 
férer Basic et Langage Machine. 
Son prix est de 250 F, mais sur 
l'autre face du disque se trouvent 
4 autres utilitaires dont nous 
vous donnons ci-dessous un 
aperçu : 


— CAT : Transfert DOS vers 
SEDORIC. Votre meilleur ami a 
un JASMIN et vous, un MICRO¬ 
DISC. Comment récupérer les 
excellentes disquettes de THEO- 
RIC, au format Jasmin, pour les 
relire sur votre MICRODISC ? 
C'est très simple ! L'utilitaire CAT 
permet de choisir les fichiers que 
l'ôn veut transférer d'un format 
vers l'autre et se charge de tout. 
Pouvait-on rêver mieux ? 

— DTR : DUMP en Temps Réel. 
Et quand on vous dit en temps 
réel, vous pouvez nous croire car 
si vous auscultez certaines zones 
mémoire, telle la page 3, avec cet 
utilitaire, vous verrez le contenu 
des adresses correspondant aux 
timers de l'ORIC changer... Très 
pratique pour la mise au point de 
programmes particuliers ! 

— DD : Disque Docteur 

Ou comment faire rapidement le 
bilan de santé d'une disquette 
présentant des aléas de fonction¬ 
nement. Chaque secteur est 
analysé. Vous pouvez suivre à 
l'écran le déroulement des opé¬ 
rations. Le type de formatage est 
indiqué. En cas de problème, le 
secteur fautif est dénoncé. Il ne 
vous reste plus qu'à le réparer. 

— RTP : Restaure Piste. 

Une piste de votre disquette est 
abîmée ? Pas grave, RTP se 
charge de la remettre en état. Ça 
aussi, c'est une bonne idée, car 
RTP peut sauver une disquette et 
lui éviter de finir à la poubelle. 


GAZOLINE SOFTWARE 

Certains de nos lecteurs ont 
entendu parler de cette société 
d'édition, à l'occasion de la sor¬ 
tie du jeu "KARATE” sur ORIC, 
et nous ont questionnés à son 
sujet. 

Renseignements pris, il s'avère 
que Gazoline Software est une 


"filiale" d'ERE INFORMATIQUE. 
ERE ne veut diffuser, dans sa 
gamme, que de produits innova¬ 
teurs dont le caractère d'origina¬ 
lité soit incontestable. Néan¬ 
moins, pour offrir une chance aux 
jeunes créateurs de talent ayant 
élaboré un logiciel qui, s'il n'of¬ 
fre pas les critères nécessaires 
pour être diffusé dans la gamme 


des produits ERE INFORMATI¬ 
QUE, n'en est pas moins digne 
d'être édité, Gazoline Software 
est née. C'est donc un petit peu 
une "sous-marque" sans que ce 
terme ne soit péjoratif ou 
synonyme de moindre qualité. 
Les logiciels de la gamme ont un 
prix maximum de 99 F. Ils sont 
vendus en cassettes cellopha- 
nées dont la jaquette a été des¬ 
sinée sur ordinateur. 

Gazoline Software permet de 
donner un "coup de pouce" aux 
jeunes créateurs. Après KARATE 
dont nous ferons le banc d'essai 
dès que nous aurons reçu de 
l'éditeur un exemplaire, d'autres 
produits pour ORIC sont commer¬ 
cialisés : une bonne nouvelle pour 
tous ! 


A PROPOS DES 
PROGRAMMES PUBLIES 

Le choix des programmes publiés 
dans THEORIC s'effectue sur cer¬ 
tains critères : simplicité, origina¬ 
lité, performances, etc. Par 
contre, il est indispensable que 
les programmes (ou articles) pro¬ 
posés soient inédits. Pas la peine 
de nous envoyer un logiciel que 
vous avez déjà fait paraître dans 
une autre revue : vous avez eu 
votre heure de gloire avec, et nos 
lecteurs sont, peut-être, des lec¬ 
teurs de cette autre revue... De 
même, inutile de nous proposer 
un logiciel honteusement 
"pompé" dans une revue ou un 
livre, français ou étranger. Même 
si nous ne découvrons pas la 
superchérie tout de suite, il est 
probable qu'un jour ou l'autre 
cela se sache... Nous nous réser¬ 
vons alors le droit d'engager des 
poursuites. 

Pourquoi toutes ces précau¬ 
tions ? Tout simplement parce 
que nous avons reçu un courrier 
fort déplaisant d'un certain Vin¬ 
cent JAJOLET, auteur du pro¬ 
gramme "MARTIENS” publié 
dans THEORIC HORS SERIE. 
Suite à la parution de ce pro¬ 
gramme, plusieurs lecteurs nous 
ont écrit, déplorant le fait que son 
listing avait déjà été publié, quel¬ 
que temps auparavant, dans 
HEBDOGICIEL. Nous avons donc 
décidé de ne pas rémunérer son 
auteur... d'où la contestation. 
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Heureusement, la plupart des 
programmes qui nous sont pro¬ 
posés sont inédits et leur publi¬ 
cation vaut à l'auteur un abonne¬ 
ment gratuit ou une rémunération 
s'il est déjà abonné. 



Effacer l'écran de la gauche vers 
la droite, position après position, 
au moyen d'une petite routine en 
langage machine, voici ce que 
nous propose Serge M'TANIOS 
de Marseille. 

Cette routine est implantée à par¬ 
tir de 7400 mais vous pourrez la 
déplacer en changeant tous les 
74 par le poids fort de la zone 
mémoire où vous voulez la met¬ 
tre. 

Elle fait appel à la routine WAIT, 
d'où un effacement assez lent de 
l'écran. Ceci peut être modifié 
facilement... 

Avant de lancer la routine par 
CALL # 7402, il faut initialiser les 
adresses 7400 et 7401 par 
DOKE #7400, #201. 

Après avoir tapé et sauvegardé le 
programme Basic dont les DATA 
correspondent au listing assem¬ 
bleur, faites RUN. Sauvegardez 


«llflll IH UUH ; 


DIT..? D AC! 

système auteur toutes matières 


DIALOGUE U|i(itl - ••!■(• - lèa«Mtr«liM 120 F 

protocole de liaison et detrans 


CLAVIDACT 

méthode de frappe (aierty-q wsrty ) 


LA CITE DE CRISTAL 

|eu de r6le graphismes et dep en 3D 


ELEPHORM 

2 |eui de réfleie et de mémoire 


121 F 

ISO F 

. . . 110 F 


MEFIES-TOI DE MEPHISTO NF 

leu de rôle aveo graphismes 



10. rsi lll Fssrslsr» 07100 6UIINERAND 1.175404844 


Cstslogue complet I détaillé contrs 2 timbres a 2.20F 
gratuit pour toute commande 


ensuite la routine en L.M. par 
CSAVE "CLSLAT”, A #7400, 
E # 743F. 

Pour ORIC-1, il faut changer : 
DA0C en D965 
EEC9 en EDAD 

DA0C calcule l'adresse équiva¬ 
lente à une ligne donnée. 

EEC9 Routine WAIT. On y entre 
avec la temporisation souhaitée. 
Poids faible en Y 


Poids fort en X 
02 en A 

Pour effacer de la droite vers la 

gauche, modifier comme suit : 

7403 : IB 

7408 : 27 

7410 : 00 

7417 : CE 

741E : 01 

7438 : CE 


7 402: A2 

01 

•-DX «01 


7404 

8E 

00 

74 STX *7400 


7407 

AO 

02 

LDY #*02 


7409 

SC 

01 

74 STY <7401 


740C 

AD 

00 

74 LDA *7400 


740F 

C9 

IC 

CHP #*1C 


7411 

DO 

01 

BNE *7414 


7413 

6G 


RT5 


7414 

20 

OC 

DA JSR tDAOC 


7417 

EE 

00 

74 INC *7400 


741A 

AC 

01 

74 LDY *7401 


741D 

CO 

28 

CPY #*28 


741F 

FO 

E6 

BEÛ *7407 


7421: 

48 


PHA 


7422: 

8A 


TXA 


7423: 

48 


PHA 


7424: 

98 


TYA 


7425: 

48 


PHA 


7426: 

A9 

20 

LDA #*20 


7428: 

91 

1F 

STA (tlF).Y 

Cette partie peut être 

742A: 

AO 

OA 

LDY #*0A 

modifiée pour supprimer i'appei 

742C: 

A2 

00 

LDX #*00 

à la routine WAIT et la 

7.42E: 

A9 

02 

LDA #*02 

remplacer par une décrémentation 

7430: 

20 

C9 

EE JSR *EEC9 

de registres effectuant une 

7433: 

68 


PLA 

temporisation plus courte. 

7434: 

A8 


TAY 


7435: 

68 


PU 


743e: 

AA 


TAY 


7437: 

68 


PLA ^ 


7438: 

EE 

01 

74 INC *7401 


743B: 

4C 

IA 

74 JHP *741A 


743E: 

EA 


N0P 


743F: 

EA 


N0P 



IC 4=17400 :F=#743F:L=100 :REPEAT:FOR A=A TO A+15:READ C* 


20 K=VAL('# * +C*):S=S+K+65536«(S+K>655351: IF A<=F THEN POKE A.K 


30 NEXT:READ DS:IF S=VALC# , +D$) 

THEN L=L+5:UNTIL A>F:END 


40 PIN6:PRINT"Erreur liane’tL 



100 DATA 01.02.A2.01.8E.00,74.AO.02.8C,01.74.AD.00.74.C9,0535 


105 DATA IC,DO.01.60.20.0C.DA.EE.00.74.AC,01,74,C0.28.F0.0BE3 


110 DATA E6.48.8A.48.98.48,A9,20,91.1F.A0.01.A2.00.A9.02,122A 


115 DATA 20,C9.EE,68.A8.68.AA.68.EE,01.74,4C.1A.74.EA.EA.1A9C 
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LES 

INTERRUPTIONS 

Eric VIEL 

P our la plupart d'entre nous, une interruption, c'est 
un coup de téléphone alors que nous étions plon¬ 
gés dans la lecture de THEORIC, nous obligeant 
ainsi à insérer un marque-page dans notre revue préfé¬ 
rée, afin de pouvoir répondre au téléphone en toute 
quiétude. Mais dans notre ORIC, qu'en est-il au juste ? 


Et bien, aussi surprenant que cela 
puisse paraître, c'est la même 
chose, transposée évidemment 
dans la réalité informatique. 
Mais tout d'abord, avant de voir 
comment ça marche, voyons un 
peu à quoi cela sert. Le principal 
intérêt des interruptions est la 


gestion du clavier. Grâce aux 
interruptions, le microprocesseur 
va régulièrement scruter le clavier 
et stocker en mémoire les tou¬ 
ches qui sont pressées. 

Voyons maintenant comment 
cela fonctionne. La ligne IRQ de 
l'ORIC envoie un signal au micro¬ 


processeur, lui indiquant qu'il doit 
arrêter son travail pour aller 
répondre à l'interruption ainsi 
créée. Avant de paniquer devant 
ces termes techniques, sachez 
simplement que la ligne IRQ, 
c'est le parcours électronique par 
lequel est acheminée une inter¬ 
ruption de type IRQ (Interrupt 
ReQuest), c'est-à-dire demande 
d'interruption. Comme il s'agit là 
d'une interruption demandée par 
l'électronique de la machine, elle 
est qualifiée d’interruption maté¬ 
rielle. Il existe deux autres types 
d'interruption matérielle, les NMI 
(Non Masquable Interrupt = 
Interruptions non masquables) et 
le RESET. Ne confondez pas ce 
dernier avec le poussoir du même 
nom situé sous votre machine. Le 
RESET dont nous parlons, c'est 
celui qui ré-initialise la machine 
lors de son allumage ou de la 
mise en contact des broches 4 
(RST) et 34 (masse) du bus d'ex¬ 
tension (cela n'a que peu d'inté¬ 
rêt pour nous). Les interruptions 


10 A=«»6000 : F=#6147 : L= 100 : REPEAT : FOR A=A T0 A+15 : READ C* 

20 K=V AL ( * tt 1 ♦ Ct ) : S=S+K+65536* <S+K >65535):IF A<=F THEN POKE A.K 
30 NEXT:READ DS:IF S=VALC#M*> THEN L=L+5:UNTIL A>F:END 
40 PIN6:PRINT'Erreur lioneM 

100 DATA AD.F5.02.8D.30.60.AD.F6.02.8D.3E.60.A9.21.8D.F5.07EA 
105 DATA 02.A9,60.8D,F6.02,A9.A1,8D.45,02,A9,60,8D.46.02.0E76 
110 DATA 60.A5.E9.48.A5.EA.48.20.E8.00.C9.4D.FO,11.C9.41,16AC 
115 DATA FO.OD.C9.20.FO,EB.68.85,EA,68,85,E9,4C,36,D3.48.1FB7 
120 DATA AC.1F.02.D0.0B.A9.20.8D.A4.EB.8D.A5.BB.8D.A7.BB.27F0 
125 DATA 20.E2.00,F0.08.C9.3A.F0,04.68,18.90.D9.68.8E.95.2F55 
130 DATA 02.AA,68.68,8A.AE,95.02.AC.IF.02.D0.03.8D,A6.BB,362E 
135 DATA C9.4D.F0.15.A9.01.8D.90.02.A2.00.A9.00.9D.E0.02.3CDC 
140 DATA E8.E0.09.DO,F8,20,DO.FB.60,A9.00.8D.90.02.AD.93.45C8 
145 DATA 02.85,00.AD.94,02.85.01.A9.FF.8D.91.02.8D.92.02.4C01 
150 DATA 60.48.8A,48,98,48.AD,90.02,F0,08.68.A8,68.AA,68,531C 
155 DATA 4C.22.EE. 18,AD.91,02.69,01.8D.91.02,AD.92.02.69.5904 
160 DATA 00.BD.92.02,AO.O0,Bl,0O,CD.9t,O2,DO.DE.C8,Bl,CO.5FFB 
165 DATA CD.92,02,DO,D6,C8,B1.00,C9,04,DO,15,AD,93.02,85.67F6 
170 DATA 00,AD,94.02,85,01,A9,FF,8D,91,02.8D,92,02,18.90.6E50 
175 DATA BA,A9,00,8D,E0,02,8D.E2,02,8D.E4,02,8D.E6,02,80,7608 
180 DATA E8.02,B1.00,8D,El,02.C8,B1,00,8D,E3,02.C8.B1.00.7D77 
185 DATA 8D.E5.02.C8.B1,00.8D.E7,02,A2,00,BD.E0.02,9D.00,94B8 
190 DATA 70.E8.E0,09,D0,F5,20,18,FC,AD, 1F,02,D0,09.18.AD.8C5E 
195 DATA E0,02.69,30.8D.A7,BB.18.A5.00.69.06,85.00,A5,01.921F 
200 DATA 69,D0,85.01.4C.C4,60,55,00,00,00,00,00.00,00,00,9403 
VERSION ATMOS MUSIRUPTI0N PARTIE BINAIRE 


10 A=S6DC0:F=*6147:L=100:REPEAT:FOR A=A T0 A+15:READ Ct 
20 K=VAL(■# , +C»):S=S+h+65536*(S+K>65535>:IF A<=F THEN POKE A.K 
30 NEXT:PEAD Dt:IF S^ALCB'+D*) THEN L=L+5:UNTIL A>F:END 
40 PINSîPRINT'Erreur lioneM 

100 DATA AD.F5.02.8D.3D.60.AD.F6.02.8D.3E.60.A9.21.BD.F5.07EA 
105 DATA 02.A9.60.8D,F6,02.A9.A1,8D.29,02.A9.60.8D.2A.02.0E3E 
110 DATA 60.A5.E9.48.A5, EA.48.20.E8.00.C9.4D.FD.il. C9.41.1674 
115 DATA F0,0D.C9,20,FO,EB,68,85,EA,68.85.E9,4C.A0.D2.48.1FE8 
120 DATA AC.1F.02.D0.0B.A9.2O.8D.A4.BB.8D.A5.BB.3D.A7.BE.2821 
125 DATA 20.E2,00,F0.08.C9,3A,FO,04,68.18.90.D9.63.8E.95.2F36 
130 DATA 02.AA.68.6B.8A.AE.95.02.AC, 1F.02.D0.03.8D.A6.BB.365F 
135 DATA C9.4D.F0.15.A9.01.8D,90.02,A2.00.A9.00.9D.E0.02.3D0D 
140 DATA E8.E0.09.DD.F8,20,B6.FE.60.A9.00.8D.90.02.AD.93.45Î'F 
145 DATA 02.85.00.AD.94,02,85.01.A9.FF.9D.91.02.9D.92.02.4CI8 
150 DATA 60.48,9A,48,98.48,AD.90,02,F0.08,68.A8.68.AA.68.5333 
155 DATA 4C.03.EC,18.AD.91,02.69,01,80,91,02, AD, 92.02,69,58FA 
160 DATA 00.8D,92.02,A0.00.Bl,0O.CD,91.02.D0.DE.C8,B1.00,5FF3 
165 DATA CD,92.Q2.DO.D6,C8,B1.DO,C9,04,DO. 15.AD.93.02.85.67EC 
170 DATA 00.AD,94,02,85,01.A9,FF,8D.91,02,80.92.02.18.90.6E46 
175 DATA BA,A9.00.BD,E0.02.8D,E2,02,8D.E4,02.8D,E6,02,8D.75FE 
180 DATA E8.02.B1.00,8D.El,02.C8.B1,00,8D.E3,02.C8.B1,00,7D6D 
185 DATA 8D,E5.02. C8, El,00,SD.E7,02,A2,00,BD.E0.02.9D,00.84AE 
190 DATA 70,E8.E0.09,DO.F5.20.FE.FB.AD,1F.02.D0,09,18.AD.8D39 
195 DATA E0,02.69,30,8D.A7.BB.18.A5,00.69.06.85. 00.A5.01.92FA 
200 DATA 69,00.85,01.4C.C4,60.55,00.00,00,00,00,00,00.00,95AE 
VERSION 0RIC-1 MUSIRUPTI0N PARTIE BINAIRE 
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non masquables (NMI) corres¬ 
pondent elles aux diverses pres¬ 
sions que vous pouvez faire sur 
le poussoir RESET (sous votre 
ORIC). Ces trois types d'interrup¬ 
tions sont vectorisés en haut de 
ROM : $FFFA pour les NMI, 
$FFFC pour le RESET (initialisa¬ 
tion), et $FFFE pour les IRQ. Le 
terme barbare de vectorisation 
veut simplement dire que lorsque 
l'interruption survient, le micro¬ 
processeur sait qu'il doit aller 
chercher en $FFFA (pour une 
NMI) l'adresse d'exécution de la 
routine de traitement des NMI (en 
quelque sorte, il effectue un saut 
indirect : JMP ($FFFA)). 
L'adresse $FFFA est appelée vec¬ 
teur d'interruption des NMI. Les 
vecteurs d'interruption dépen¬ 
dent du type de microprocesseur. 
Tous les microprocesseurs 6502 
ont leur vecteur d'interruption 
NMI en $FFFA. 

SCHEMA DE 

FONCTIONNEMENT D'UNE 
INTERRUPTION IRQ 

Toutes les fractions de seconde, 
l'interruption arrive. Le drapeau I 
passe à 1, empêchant ainsi 
qu'une seconde interruption ne 
vienne perturber le traitement de 
celle en cours. Les registres P et 
PC (Program Counter : Adresse 
de l'instruction en cours de trai¬ 
tement) sont empilés. L'octet de 
poids fort du PC (noté PCh) est 
chargé avec le contenu de $FFFE, 
celui de poids faible (PCI) est 
chargé avec $FFFE+1. La rou¬ 
tine de traitement des IRQ, termi¬ 
née par l'instruction RTI, s'exé¬ 
cute (scrutation clavier, etc.). Le 
RTI (ReTurn from Interruption = 
retour d'interruption) dépile les 
registres P ôt PC, et remet à zéro 
le drapeau I, une nouvelle inter¬ 
ruption peut avoir lieu. 

UTILITE DES INTERRUPTIONS 

Tout ce qui vient d'être décrit 
passe inaperçu aux yeux de l'uti¬ 
lisateur. Alors quel en est l'inté¬ 
rêt ? Réponse : leur détourne¬ 
ment. Non, je ne vous parle pas 
d'un acte terroriste, mais simple¬ 
ment de remplacer l'adresse de 
traitement de l'interruption par 
l'adresse d'une sous-routine se 


terminant par un saut à la routine 
normale de traitement des inter¬ 
ruptions. 

Les interruptions les plus utilisées 
pour ce genre de piraterie (!) sont- 
les IRQ. En effet, elles sont appe¬ 
lées plusieurs fois par seconde, 
ce qui permet toutes les applica¬ 
tions nécessitant un chronomé¬ 
trage, comme faire une horloge 
(cf THEORIC n° 6) ou jouer de la 
musique, ce que nous allons réa¬ 
liser ce mois-ci. 

LE PRINCIPE 
DE FONCTIONNEMENT 

Les notes à jouer sont enregis¬ 
trées à l'adresse contenue en 
INIT, avec le format suivant : date 
à laquelle la note doit être jouée, 
canal, octave, note, volume. Un 
compteur est défini, nommé 
COMPT, incrémenté à chaque 
interruption. On compare alors la 
date de la note courante, et 
COMPT. En cas d'égalité, la note 
est jouée. Pour mettre en marche 
la musique, il suffit de taper !M, 
!A pour l'arrêter. 

COMMENTAIRE 
DU LISTING 

Le détournement des interrup¬ 
tions nécessite plusieurs manipu¬ 
lations, risquant de planter le 
système si elles sont mal exécu¬ 
tées. Le début du programme sert 
donc à éviter ces manipulations. 
Les lignes 43 à 55 accomplissent 
donc cette tâche comme suit : 
lignes 43 à 46 : duplication de 
l'adresse d'une éventuelle routine 
déjà vectorisée par le !. Les lignes 
47 à 50 remplacent cette adresse 
par celle de notre routine de trai¬ 
tement du !, puis on retourne les 
interruptions vers IRQ', notre rou¬ 
tine de musique. 

Les lignes 59 à 122 ne présen¬ 
tent pas d'intérêt dans un article 
sur les interruptions : elles véri¬ 
fient la syntaxe des commandes 
!M ou !A et, en cas d'erreur, ren¬ 
voient sur la routine présente 
avant sur le !. La fonction !A 
passe à un ETAT et effectue un 
PLAY 0,0,0,0 afin de stopper la 
dernière note jouée (voir l'an¬ 
nexe). La fonction !M fait passer 
ETAT à zéro, initialise les mémoi¬ 
res 00 et 01 qui serviront à poin¬ 


ter la prochaine note à jouer et 
donne la valeur - 1 ($FFFF) à 
COMPT, de façon à ce qu'il passe 
à zéro dès qu'il sera incrémenté. 
La routine IRQ : elle commence 
par sauvegarder les différents 
registres. En effet, ceux-ci con¬ 
tiennent des valeurs pour le trai¬ 
tement de l'IRQ. Il faut donc les 
conserver, en les empilant par 
exemple. Puis on teste ETAT. Il 
sert à indiquer le mode de fonc¬ 
tionnement : 0 = mode !M et 
1=mode !A. Si ce dernier est 
activé, on dépile les registres et 
on retourne à la routine de trai¬ 
tement normal des IRQ (ligne 
145). Autrement, on charge A 
avec le numéro du canal ; norma¬ 
lement compris entre 1 et 3. La 
valeur 4 est l'indicateur de fin de 
partition. On ré-initialise alors 
COMPT, 00 et 01 (lignes 171 à 
1 77) puis on repart sur la pre¬ 
mière note. 

Les lignes 181 à 186 préparent 
le message des paramètres pour 
le MUSIC. Puis on transfère l'oc¬ 
tave, la note et le volume, et enfin 
on exécute la routine MUSIC. On 
affiche alors, en haut à droite de 
l'écran (sauf si on est en haute 
résolution, ligne 207), la valeur 
de $2E0, afin de savoir s'il y a eu 
erreur ou non. 

On conclue la routine en faisant 
passer le pointeur sur la pro¬ 
chaine note, et en repartant sur 
le test de la date, afin de pouvoir 
jouer sur plusieurs canaux en 
même temps. 

UTILISATION 
DU PROGRAMME 

Taper la routine en langage 
machine puis exécuter l'instruc¬ 
tion CALL # 6000. Charger alors 
le programme Basic, contenant le 
petit jeu et les notes. Faire RUN. 

POUR DETOURNER 
VOUS-MEME LES IRQ 

Remplacer en $229-$22A (ORIC- 
1 ) ou en $245-$246 (ATMOS) la 
valeur par l'adresse de la routine. 
Commencer celle-ci par une sau¬ 
vegarde des registres. La termi¬ 
ner par la restauration de ces 
registres, puis par un JMP $EC01 
(ORIC-1 ) ou par un JMP $EE22 
(ATMOS). 
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ANNEXE : 

LA MUSIQUE EN 
LANGAGE MACHINE 

Tous les paramètres des fonc¬ 
tions musicales passent par les 
adresses $2E0 et suivantes : 


PLAY MUSIQUE 

$2E1-$2E2 Canaux Son Canal 

$2E3-$2E4 Canaux Bruit Octave 

$2E5-$2E6 Enveloppe Note 

$247 $2E8 Durée Volume 


Puis on exécute la routine par : 


PLAY MUSIQUE 

ORIC-1 JSR $FBB6 JSR $FBFE 

ATMOS JSR $FBDO JSR $FC18 


NOTE : Afin de ne pas priviliégier 
un canal, il n'y a pas de PLAY lors 
du !M. C'est à vous de le mettre 
avant l'appel, en choisissant les 
paramètres en fonction de la par¬ 
tition. (exemple : PLAY 1,0,0, 
0:!M). 


10 REM- 

11 REM 

12 REM MUSIRUPTION V2.1 

13 REM 

14 REM PROGRAMME DE DEMONSTRATION 

15 REM 

16 REM 

17 REM Auteur : Eric VIEL 

18 REM 

19 REM- 

100 DATA 02,01,02,03,02,05,02.07 

110 DATA 00,00,02,07,00,00,02,07 
120 DATA 00,00,02,07,02,07,02,05 
130 DATA 02,06,02,08,02,09,02,08 
140 DATA 02,11,02,09,02,08,02,06 
150 DATA 02,05.02,06,02,01,02,09 
160 DATA 03,01,02,06,03,01,02,09 
170 DATA 03,01,02,10,02,10,02,11 
180 DATA 00,00,02,11,00,00,02,11 
190 DATA 00,00,02,11,00,00,02,11 
200 DATA 00,00,02,11,00,00,02,10 
210 DATA 03,01,03,02,02,09,00,00 
220 DATA 02,09,00,00,02,09,00,00 
230 DATA 02,09,00,00,02,09,02,08 
240 DATA 02,09,02,11,03,01,02,07 
250 DATA 00,00,02,07,00,00,02,07 
260 DATA 00,00,02,07,00,00,02,07 
270 DATA 00,00,02,06,02,07,02,09 
280 DATA 02,11,02,09,02,07,02,11 
290 DATA 02,06,03,01,02,09,03,01 
300 DATA 02,06,00,00,00,00.00,00 
310 REM 


400 INIT=#0293 
410 D0KE INIT,#7500 
420 A=#7500 
500 CLS 

505 INPUT 'VOLUME ";VBASE 
510 FOR 1=0 T0 83 
520 READ 0C,N0 
530 V0LUME=VBASE 

540 IF 0CTAVE=0 THEN V0=0:N0=l:DATE=DATE-8 
545 0C=OC+l 

550 DOKE A,DATE 

551 P0KE A+2,1 ’CANAL 

552 P0KE A+3,0C 

553 P0KE A+4.N0 

554 P0KE A+5,VOLUME 
560 DATE=DATE+16 
570 A=A+6 

580 NEXT 

590 DOKE A,DATE:P0KE A+2,4 
600 PLAY 1,0,0,0 

610 PRINT'PRESSEZ UNE TOUCHE ...':6ETR$ 

'620 IM 
1000 REM 

1010 REM PETIT JEU DEBILE 
1020 REM 

1030 REM SONORISE A L’AIDE DE CE 
1040 REM 

1050. REM PROGRAMME 
1060 REM 

1070 REM DEPLACEMENTS : FLECHES 
1080 REM 

1090 REM BUT DU JEU: FORCER L’ELEPHANT (SIGNE 3) A PASSER SUR UNE TRAPPE * 
1110 REM VOUS ETES * 

1115 PLAY 1,0,0,0 

1116 INPUT 'NIVEAU 1-FACILE „..DUR';N 
1120 CLS 

1130 X=INT< RND(1)*30+3) 

1140 Y=INT(RND( 1X20+3) 

1143 D=SCRN(X,Y) 

1145 PLOT X,Y,*«' 

1150 PLOT RND(1)*30+3,RND(1)*20+3,'#' 

1160 PLOT RND(1)*30+3,RND(1)*20+3,'#' 

1170 E=1:P=1 

1180 A=PEEK(#208): IF A=56 THEN 1300 

1185 AX=X:AY=Y 

1190 X=X+(A=#AC)-(A=#BC) 

1200 Y=Y+(A=#9C)-(A=#B4) 

1210 IF X<1 OR X>38 OR Y>24 OR Y<1 THEN X=AX:Y=AY:G0T0 1300 
1220 PLOT AX,AY,CHR$(D):D=SCRN(X,Y): PLOT X,Y,'*' 

1300 V=V+1: IF V<N THEN 1180 
1305 V=0: PLOT E,P,' ' 

1310 E=E+(E>X)-(E<X):P=P+(P>Y)-(P<Y) 

1320 IF E=X AND P=Y THEN 2000 

1330 IF SCRN(E,P)=ASC('#‘) THEN 2500 

1340 PLOT E,P,'3':G0T0 1180 

2000 PRINT'AH AH AH AH PERDU lü^GOTO 3000 

2500 PRINT'BRAVO, GAGNE !!!’ 

3000 PRINT:PRINT:INPUT 'UNE AUTRE (0/N) *;R$:IF R$<>*N* THEN 1000 

3010 PRINT'FIN DE LA MUSIQUE ':!A_ 
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?IN DE LA PASSE 1 



6021 

A5 E9 

59 DEBUT 

LDA $E9 

Fin des 

labels:*3127 


6023 

48 

60 

PHA 

OOOO 


1 

LST 

6024 

A5 EA 

61 

LDA $EA 

0000 


2 

9 

6026 

48 

62 

PHA 

0000 


3 

• * 1 

1 ' ' 

6027 

20 E8 00 

63 

JSR $00E8 

0000 


4 

: ! MUSIRUPTION V2.1 ! 

602A 

C9 4D 

64 

CMP ’M’ 

0000 


5 

• ' 1 

1 ' 1 

602C 

FO 11 

65 

BEQ VALID 

0000 


6 

; ! Auteur: Eric Viel 05-86! 

602E 

C9 41 

66 

CMP ’A’ 

0000 


7 

• * • 

1 ' ■ 

6030 

FO OD 

67 

BEQ VALID 

0000 


8 

9 

6032 

C9 20 

68 

CMP * * 

0000 


9 

9 

6034 

FO EB 

69 

BEQ DEBUT 

0000 


10 

:REF 860423 

6036 

68 

70 SUITE 

PLA 

0000 


11 

9 

6037 

85 EA 

71 

STA $EA 

0000 


12 

;Version developpee pour ORIC 1 

6039 

68 

72 

PLA 

0000 


13 

9 

603A 

85 E9 

73 

STA $E9 

0000 


14 

; Pour l’adapter sur ATMOS, 

603C 

4C AO D2 

74 

JMP $D2A0 

0000 


15 

codifier les lignes 30,31,32 

603F 

48 

75 VALID 

PHA 

0000 


16 

î par : 

6040 

AC 1F 02 

76 

LDY $21F 

0000 


17 

; IRQ EQU $EE22 

6043 

DO OB 

77 

BNE >6 

0000 


18 

; PLAY EQU $FBDO 

6045 

A9 20 

78 

LDA ’ ’ 

0000 


19 

i MUSIC EQU $FC18 

6047 

8D A4 BB 

79 

STA $BBA4 

0000 


20 

5 

604A 

8D A5 BB 

80 

STA $BBA5 

0000 


21 

;et les lignes 50,52,72 par les 

604D 

8D A7 BB 

81 

STA $BEA7 

0000 


22 

;les valeurs indiguees. 

6050 

20 E2 00 

82 >6 

JSR $00E2 

0000 


23 

■ 

f 

6053 

FO 08 

83 

BEQ BON 

0000 


24 

PARAM EQU $2E0 

6055 

C9 3A 

84 

CMP 

0000 


25 

ETAT EQU $290 

6057 

FO 04 

85 

BEQ BON 

0000 


26.COMPT EQU $291 

6059 

68 

86 

PLA 

0000 


27 

;C0MPT+1 $292 

605A 

18 

87 

CLC 

0000 


28 

INIT EQU $293 

605E 

90 D9 

88 

BCC SUITE 

0000 


29 

;INIT+1 $294 

605D 

68 

89 BON 

PLA 

0000 


30 COPIE/X EQU $295 

605E 

8E 95 02 

90 

STX COPIE/X 

0000 


31 

5 

6061 

AA 

91 

TAX 

0000 


32 IRQ EQU $EC03 

6062 

68 

92 

PLA 

0000 


33 PLAY EQU $FBB6 

6063 

68 

93 

PLA 

0000 


34 MUSIC EQU $FBFE 

6064 

8A 

94 

TXA 

0000 


35 

• 

i 

6065 

AE 95 02 

95 

LDX COPIE/X 

0000 


36 

a 

9 

6068 

AC 1F 02 

96 

LDY $21F 

0000 


37 

0R6 $6000 

606B 

DO 03 

97 

BNE >6 

6000 


38 


606D 

8D A6 BB 

98 

STA $BB80+38 

6000 


39 

; Vectorisation du ! 

6070 

C9 4D 

99 >6 

CMP ’M’ 

6000 


40 


6072 

FO 15 

100 

BEQ >1 

6000 


41 

; et détournement des IRQ 

6074 

A9 01 

101 

LDA «01 

6000 


42 


6076 

8D 90 02 

102 

STA ETAT 

6000 

AD F5 02 

43 

LDA $2F5 

6079 

A2 00 

103 

LDX #00 

6003 

8D 3D 60 

44 

STA SUITE+7 

607B 

A9 00 

104 

LDA *00 

6006 

AD F6 02 

45 

LDA $2F6 

607D 

9D EO 02 

105 >6 

STA $2E0,X 

6009 

8D 3E 60 

46 

STA SUITE+8 

6080 

E8 

106 

INX 

600C 

A9 21 

47 

LDA «DEBUT 

6081 

EO 09 

107 

CPX #9 

600E 

8D F5 02 

48 

STA $2F5 

6083 

DO F8 

108 

BNE <6 

6011 

A9 60 

49 

LDA /DEBUT 

6085 


109 ; 


6013 

8D F6 02 

50 

STA $2F6 

6085 

20 B6 FB 

110 

JSR PLAY 

6016 

A9 Al 

51 

LDA «IRQ’ 

6088 


111 ; 


6018 

8D 29 02 

52 

STA $229 ;$245 ATMOS 

6088 

60 

112 

RTS 

601B 

A9 60 

53 

LDA /IRQ’ 

6089 

A9 00 

113 >1 

LDA #00 

601D 

8D 2A 02 

54 

STA $22A ;$246 ATMOS 

608B 

8D 90 02 

114 

STA ETAT 

6020 

60 

55 

RTS 

608E 

AD 93 02 

115 

LDA INIT 

6021 


56 

î 

6091 

85 00 

116 

STA 00 

6021 


57 

; Commandes !M et !A 

6093 

AD 94 02 

117 

LDA INIT+1 

6021 


58 

9 

6096 

85 01 

118 

STA 01 


;D336 ATMOS 
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6098 

A9 

FF 


119 

LDA #*FF 

60EE 

18 

178 

CLC 



609A 

8D 

91 

02 

120 

STA COMPT 

60EF 

90 BA 

179 

BCC <0 



609D 

8D 

92 

02 

121 

STA COMPT+1 

60F1 


180 ; 




6OA0 

60 



122 ; 

RTS 

60F1 

A9 00 

181 >1 

LDA *00 



60A1 




123 ; 


60F3 

8D EO 02 

182 

STA PARAM 



60 Al 




124 ; 


60F6 

8D E2 02 

183 

STA PARAM+2 



60A1 




125 ; 

Routine IRQ’ sur laquelle 

60F 9 

8D E4 02 

184 

STA PARAM+4 



60A1 




126 ; 

sont détournées les 

60FC 

8D E6 02 

185 

STA PARAM+6 



60A1 




127 ; 

IRQ normales 

60FF 

8D E8 02 

186 

STA PARAM+8 



60 Al 




128 ; 


6102 

B1 00 

187 

LDA (00),Y 



60A1 




129 ; 


6104 

8D El 02 

188 

STA PARAM+1 

ï 

CANAL 

60A1 




130 ; 


6107 

C8 

189 

INY 



60A1 




131 ; 


6108 

El 00 

190 

LDA (00),Y 



60 Al 

48 



132 IRQ’ 

PHA 

61 OA 

8D E3 02 

191 

STA PARAM+3 

5 

OCTAVE 

60A2 

8A 



133 

TXA 

610D 

C8 

192 

INY 



60A3 

48 



134 

PHA 

610E 

B1 00 

193 

LDA (00),Y 



60A4 

98 



135 

TVA 

6110 

8D E5 02 

194 

STA PARAM+5 

« 

NOTE 

60A5 

48 



136 

PHA 

6113 

C8 

195 

INY 



60A6 

AD 

90 

02 

137 

LDA ETAT 

6114 

B1 00 

196 

LDA (00),Y 



60A9 

FO 

08 


138 

BEQ >1 

6116 

8D E7 02 

197 

STA PARAM+7 

î 

VOLUME 

60 A B 




139 ; 


6119 

A2 00 

198 

LDX #$0 



60AB 

68 



140 >0 

PLA 

61 IB 

BD EO 02 

199 >8 

LDA PARAM.X 



60 AC 

A8 



141 

TAY 

611E 

9D 00 70 

200 

STA $7000,X 



60AD 

68 



142 

PLA 

6121 

E8 

201 

INX 



60AE 

AA 



143 

TAX 

6122 

EO 09 

202 

CPX #9 



60AF 

68 



144 

PLA 

6124 

DO F5 

203 

BNE <8 



60B0 

4C 

03 

EC 

145 

JMP IRQ 

6126 


204 ; 




60B3 




146 ; 


6126 

20 FE FB 

205 

JSR MUSIC 



60B3 . 

18 



147 >1 

CLC 

6129 


206 ; 




60B4 

AD 

91 

02 

148 

LDA COMPT 

6129 

AD 1F 02 

207 

LDA $21F 



60B7 

69 

01 


149 

ADC «01 

612C 

DO 09 

208 

BNE >6 



60B9 

8D 

91 

02 

150 

STA COMPT 

612E 

18 

209 

CLC 



60BC 

AD 

92 

02 

151 

LDA COMPT+1 

612F 

AD EO 02 

210 

LDA $2E0 



60BF 

69 

OC 


152 

ADC *00 

6132 

69 30 

211 

ADC *$30 



60C1 

8D 

92 

02 

153 

STA COMPT+1 

6134 

8D A7 BB 

212 

STA «BB80+39 



60C4 




154 ; 


6137 


213 ; 




60C4 

AO 

00 


155 >2 

LDY 100 

6137 

18 

214 >6 

etc 



60C6 

B1 

00 


156 

LDA (00),Y 

6138 

A5 00 

215 

LDA 00 



60CB 

CD 

91 

02 

157 

CMP COMPT 

613A 

69 06 

216 

ADC *06 



60CB 

DO 

DE 


158 

BNE <0 

613C 

85 00 

217 

STA 00 



60CD 

C8 



159 

INY 

613E 

A5 01 

218 

LDA 01 



60CE 

B1 

00 


160 

LDA (00),Y 

6140 

69 00 

219 

ADC *00 



60DO 

CD 

92 

02 

161 

CMP COMPT+1 

6142 

85 01 

220 

STA 01 



60D3 

DO 

D6 


162 

BNE <0 

6144 


221 ; 




60D5 




163 ; 


6144 

4C C4 60 

222 

JMP <2 



60D5 




164 ; Note validée 







60D5 




165 ; 


FIN DE LA PASSE 2 





60D5 

C8 



166 >1 

INY 







60D6 

B1 

00 


167 

LDA (00),Y 







60D8 

C9 

04 


168 

CMP *4 







60DA 

DO 

15 


169 

BNE >1 

PARAM 

=$O2E0 

ETAT 

=$0290 



60DC 




170 ; 


COMPT 

=$0291 

INIT 

=$0293 



60DC 

AD 

93 

02 

171 

LDA INIT 

COPIE/X 

=$0295 

IRQ 

=$EC03 



60DF 

85 

OC 


172 

STA 00 

PLAY 

=$FBB6 

MUSIC 

=$FBFE 



60E1 

AD 

94 

02 

173 

LDA INIT+1 

DEBUT 

=$6021 

SUITE 

=$6036 



60E4 

85 

01 


174 

STA 01 

VALID 

=$603F 

BON 

=$605D 



60E6 

A9 

FF 


175 

LDA *$FF 

IRQ’ * 

=$60A1 





60E8 

8D 

91 

02 

176 

STA COMPT 







’ 60EB 

8D 

92 

02 

177 

STA COMPT+1 


FIN= $6147 ■ 
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ECHANGE 

SYMETRIQUE 


V ous venez d'achever un très beau dessin en haute résolution, 
représentant "L'Auberge de la Pleine Lune", futur cadre d'une 
aventure périlleuse. 

C'est au moment de faire pénétrer votre héros en ces lieux ténébreux 
que vous vous apercevez que rien ne va : la porte est à gauche, alors 
qu elle ne peut être qu'à droite et la fenêtre doit être sur la façade 
à gauche ! 

Impassible, vous chargez la routine "SYMETRIE” et faites "CALL 
# 703E.0". 

Et comme par enchantement, le dessin devient symétrique à lui- 
même ! 

Il est très facile d'obtenir sur pour cela, de charger l'écran par 
ORIC une image symétrique par le bas, en inversant l'ordre des 
rapport à l'axe des X. Il suffit, lignes. Il n'en est pas de même 


pour une image symétrique par 
rapport à l'axe des Y. En effet, il 
n'est pas suffisant d'inverser les 
colonnes d'octets. Il faut aussi 
inverser les six bits les moins 
significatifs. De plus, le défaut 
bien connu de l'ORIC qui consiste 
en l'impossiblité de dessiner à 
l'emplacement des attributs, 
empêche toute symétrie dans le 
cas des attributs dissymétriques. 
C'est le cas de la plupart des des¬ 
sins multicolores. Comme, d'au- 
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LA TfLfMATIOUC A LA 



PÉRIPHÉRIQUES 


Moniteur couleur spécial OR 14 

. 2750F 

Moniteur monochrome vert 

HR 12" . 1150F 

Câble pour moniteur monochro¬ 
me . 90 F 

Modulateur couleur UHF . 495 F 
Maqnétophone à cossettes 

. 360F 

lecteur 3 pouces. 2490 F 


Imprimante MCP 40 plofler 4 cou¬ 
leurs . 990 F 

Câble pour imprimante parallèle 

. 150F 

Rouleau de papier de rechange 

pour imp. . 18F 

Jeu de stylos de rechange 40 F 
Interface pour joystick program¬ 
mable . 360 F 

Joystick type " Quickshot I" 95 F 
lecteur esclave . 1490 F 


— 30 F pour achats intérieurs 6 
Frais de Port — 50 F pour ochats de 500 F 6 1000F 

— 70 F pour ochats supérieur à 1000 f 


DE TOUS! 


500 F 


TELESTRAT 


64 Ko de RAM (extensible) 

48 Ko de ROM (extensible) 
CARTOUCHE HYPER BASIC 
CARTOUCHE TÉLÉMATIC 
lecteur disquette 3 pouces. 2 têtes 
Câbles, manuels 

3990 F 


NOM . 
PRENOM 


ADRESSE . 

Code Postal .VILLE 

DÉSIGNATION Qté 


PU 


BON DE COMMANDE 


Frais de Port 


TOTAL 


P T 
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tre part, les attributs ne sont pas 
obligatoirement dans la même 
colonne d'une ligne à l'autre, 
toute tentative d'inversion des 
colonnes d'octets avec conserva¬ 
tion des attributs au bon endroit, 
provoquera le décalage du dessin 
(les attributs n'agissent que sur 
la partie située à leur droite). 
Pour tenter de résoudre (en par¬ 
tie) tous ces problèmes, la routine 
"SYMETRIE” offre trois options : 

— dessin sur 40 (ou N) colonnes, 
fond noir, encre blanche (aucun 
attribut). Paramètre = 0 ; 

— dessin sur 38 (ou N - 2) colon¬ 
nes, les deux premières étant 
occupées par les attributs du 
fond et de l'encre, au choix. Si le 
dessin comporte d'autres attri¬ 
buts, ils seront transformés en 
fond vide, normal ou inverse. 
Paramètre = 2 ; 

— dessin sur 36 (ou N -4) colon¬ 
nes, les deux premières et les 
deux dernières étant occupés par 
les attributs. En dehors de ceux- 
ci, on peut placer autant d'attri¬ 
buts que l'on désire, pourvu que 
chaque ligne comporte des attri¬ 
buts symétriques. Le dessin à 
proprement parler sera inversé, 
alors que les attributs seront 
conservés aux emplacements 


10H10 REM DEMONSTRATION POUR ' ' SYMETRIE ' f 

1010 HIMEM#6FFF HIRES=DIMfl«80 >=GOSUB1020=GOTO1050 

1020 CORSET 12 .■ 20.. 1 = DRAW 100,0.1= DRAW0 .• 80 .• 1 : DRAW-100, 0, 1 = DR AL J O, -80, 1 

1080 CORSET 40,47,0:CIRCLE25,1=CORSET85,75,0 = CIRCLE25,1 

1040 CORSET12,100,1=DRAW100,-80,1=GOSOB1270 = RETORN 

1050 ! LOAD"SYMETRIE.BIN"=P=0 = GOSUB1290=CALL47088 

1060 GOSOB1340=GOSOB1410 

1070 !LOAD"HARDCOPY.BIN"=CALL#70O1 

1080 HIRES=GOSOB1@20 

1080 CORSET12,20,1 : FILL81,1,16 

11 00 CORSET13,20,1 : FILL81,1,7 : CORSET40,40, 3 = FILL40,1,63 

1110 REMCORSETO, 0,0 : FOR I = 1TO1 9 = FI LL 1, 1, PEEKC #R000+< I -1 >*40 >-64 : N EXT I 

1120 !LOAD"SYMETRIE.BIN":P=2=GOSOB1290*CALL#7033 

1130 GOSOB1340^ GOSOB1410 

1140 C0RSET239-11,0,0 FI LL 100,2, 64 

1150 CORSET120,10,0=CHAR49,0,1=C0RM0V6,0,0=CHAR50,0,1 
1160 !LOAD"HRRDCOPY.BIH"= CALL47001 
1170 HIRES = GOSOB1020 = P=1 
1180 CORSET12,20,1= FILL81,1,16 

1190 CORSET18,20,1= FILLS1,1,7 = CORSET40,40,3 = FILL40,1,63 

12O0 CORSET 106,20,3 = FILLS1,1,7 = CORSET 109,20,3 = FILLS1,1,16 

1210 GOSOB1340 = GOSOB1410 

1220 CURSET85 ,40,3 = FILL40,1,63 

1230 CURSET239-11,0,0 = FILL100,2,64 

1240 !LOAD"SYMETRIE.BIN"= P=1=GOSOB1290 = CALL#7088 

1250 C0RSET239-11,0,0 = FILL100,2,64 

1260 !LOAD"HRRDCOPY.BIN"= CALL#7001= END 

1270 CORSET12,10,3 = CHRR49,0,1=C0RM0V6,0,3 = CHAR50,0,1 

1280 CORSET100,10,3 = CHRR77,0,1= CORMOV6,0,1= CHAR78,0,1= RETORN 
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d'origine. Paramètre=1. 

En appelant la routine par CALL 
#703E, paramètre, on obtient 
l'inversion de la totalité de 
l'écran. Cet accès est surtout 
valable pour la préparation des 
dessins. Mais la routine peut être 
utilisée aussi pour le transfert 
avec symétrie des dessins, d'une 
mémoire stockée sur l'écran. 
Dans ce cas, l'accès est à 

# 7058. Auparavant, le paramè¬ 
tre et les adresses des départs et 
des arrivées seront placés en 
PARM, MPDG, MDD, MAG, 
MAD. 

Dans le cas où l'on souhaite 
inverser une petite partie seule¬ 
ment (très pratique au cours des 
jeux pour quelques effets spé¬ 
ciaux), on accède à la routine par 

# 7088. Dans ce cas, il faut pla¬ 
cer, avant l'appel de la routine, 
les paramètres et les adresses, 
comme précédemment, et en 
plus le nombre de lignes et le 
nombre de colonnes en LIGN et 
COLN. L'échange est possible 
dans ce cas aussi. 

Il vous sera aisé à partir de cette 
routine d'en concevoir une autre, 
permettant la symétrie polaire, en 
inversant le sens des lignes côté 
écriture. 

Le listing source est suffisam¬ 
ment commenté pour que la rou¬ 
tine ne nécessite pas d'autres 
explications. 

La routine est écrite par ORIC-1. 
Pour ATMOS, il suffit de modifier 
les trois appels aux routines de la 
ROM. Remplacer : 

H D80A par #D8C5 
ft CBED par #CCBO 

# C5F8 par #C4E8 

et le pointeur de REDO FROM 
START # CDF9 par #CE85. 
Dans le cas de transfert avec les 
paramètres 1 ou 2, les 4 ou les 
2 colonnes contenant les cou¬ 
leurs de base ne sont pas trans¬ 
férées. Ceci permet de placer 
directement sur l'écran les cou¬ 
leurs voulues. Si néanmoins vous 
désirez le transfert des attributs 
de base, il suffit de décaler les 
adresses et d'augmenter le nom¬ 
bre de colonnes en conséquence, 
en créant des colonnes fictives. 
Et enfin, si la routine ne vous 
paraît pas assez rapide, suppri¬ 
mez la scrutation. 


129U 
1390 
1 31ki 
i 320 
1330 
J 340 
1 i5ü 
1360 
» 370 
1380 
1 890 
14M0 
1410 
1480 


PQKE0,P 

DQKE#Q1, #FI002 = [>ÜKE#03, #R013 
DOKE#07,#A014 ^ OOKE#09,#A025 
POKE#05, 101 =POKE#06, 18 
RETURN 

A$="PRRRMETRE=" 

CURSET14S6,120,3 
FOR I = 1TOLENC R$ > 

B$=MIDSCA$,1,1>:B=RSC( B$ > 
CHRRB,0,1 
CURM0V6,0,3 



NEXTI : RETURN 
CURM0V6,0,3 = B$=STR$CP > 

CHAR ASCCMIDSC BS,2,1>>,0,1 RETURN ■ 
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ANIMATION 
GRAPHIQUE EN 


Wolfram LUTHER 



L a réalisation des graphiques animés en trois dimensions sur 
l'écran HIRES de l'ORIC pose beaucoup de problèmes. Pensons, 
par exemple, à la rotation d'un corps rigide, d'un cube ou d'un 
cône. Il faut décomposer le mouvement en plusieurs images momen¬ 
tanées, calculer les coordonnées des coins, tracer les contours du 
corps. Tout cela prend beaucoup de temps sauf si on programme en 
langage machine, et l'effet n'est pas du tout convaincant... 


Une autre méthode consiste à 
créer les différents écrans suc¬ 
cessivement par un programme 
en Basic, à les stocker sur dis¬ 
quette et finalement à visualiser 
cette séquence de tableaux. 
Mais, malheureusement, même 
avec un DOS très rapide, cela ne 
crée guère l'impression d'un 
mouvement cohérent. 

Comme la mémoire RAM de 
l'ORIC ne peut loger que quatre 
écrans HIRES dans la zone 
#1800 à # 97FF, la solution la 
plus élégante serait de se servir 
d'un disque dur ou d'une exten¬ 
sion mémoire. 

A défaut des deux, nous avons 
envisagé une autre solution. 
Regardons un écran typique noir 
et blanc. La plupart des pixels 
sont noirs, ce qui signifie que les 
cases mémoire contiennent la 
même valeur 64. 


On arrive donc à comprimer 
l'écran d'une manière considéra¬ 
ble à l'aide d'une routine de 
compression en langage 
machine. 

Ayant compressé une suite 
d'écrans à l'issue d'un pro¬ 
gramme en Basic, on lance une 
routine de compression qui fait 
apparaître la séquence de 
tableaux en vitesse en créant 
l'animation graphique de façon 
cohérente. 

Nous proposons donc : 

— la routine ''COMP'' de com¬ 
pression, 

— la routine "DECOMP" de 
décompression, 

— un programme de démonstra¬ 
tion "Mouvement d'un cône en 
43 écrans HIRES", 

utilisant les deux routines en LM 
qui sont d'ailleurs relogeables en 
fonction de l'étendue du pro¬ 


gramme en Basic positionné en 
bas de la MEV. 

Expliquons les routines COMP et 
DECOMP et rappelons à ce pro¬ 
pos les caractéristiques de l'écran 
en haute résolution noir et blanc 
sans attributs. 

Chaque emplacement mémoire 
entre #A000 et #BF3F est uti¬ 
lisé pour indiquer l'état de 6 
pixels consécutifs : les six bits 0 
à 5 correspondent aux pixels, le 
"sixième" bit ( = 64) est toujours 
allumé. 

La case mémoire contient donc la 
valeur de 64 si tous les pixels 
sont éteints, le tiret reste noir. 
Autrement, sa valeur est com¬ 
prise entre 65 et 127. 

La routine COMP explore l'écran 
à partir de l'adresse # A000 
jusqu'à # BF3F, soit 8000 cases 
mémoire ou 125 blocs à 64 
adresses une par une (les adres¬ 
ses sont logées en # 00, # 01, le 
compteur est installé en #05 
page zéro et registre Y). 

Si l'emplacement contient une 
valeur supérieure à 64, on trans¬ 
fère le contenu directement à la 
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zone de l'écran compressé débu¬ 
tant à l'adresse AD (AD = # 3000 
dans notre exemple o un multiple 
de 64 : # 3000 + N * 64) stockée 
en #02 et #03. 

Autrement, on examine combien 
de cases consécutives contien¬ 
nent la valeur 64 (tiret noir). Le 
nombre total est accumulé en 
#04 et transféré dès qu'on 
tombe de nouveau sur un pixel 
allumé (valeur >64) ou encore 
après 63 cases noires. 

A la fin, on calcule une nouvelle 
adresse de début d'un éventuel 


autre écran comprimé et la 
stocke en #02, #03. 

Pour la routine de décompression 
DECOMP, on a inversé le pro¬ 
cédé. Si un emplacement dans la 
zone mémoire de l'écran com¬ 
pressé contient une valeur N 
supérieure à 64, on la retransfère 
directement, sinon on met la 
valeur 64 successivement dans 
N cases mémoire consécutives 
appartenant à la zone HIRES. 

Le programme de démonstration 
décompose la rotation de 260 
degrés d'un cône en dessinant sa 


position à 0°, 8,4°, 16,8°, etc. 
Les 43 écrans HIRES résultants 
sont comprimés et stockés à par¬ 
tir de l'adresse #3000. L'exécu 
tion de cette première partie du 
programme demande à peu près 
6 minutes. 

La deuxième partie réalise le 
mouvement circulaire d'une 
façon cohérente en décompres¬ 
sant la séquence de tableaux l'un 
après l'autre en 17 secondes au 
lieu de 80 secondes pour 40 
écrans à partir du lecteur de dis¬ 
quettes double tête. 


10 REM Routine de compression d'un écran HIRES noir et blanc sans attributs 
20 REM La routine est relogeable. Faites un DORE 2.. RD ; RD adresse de début 
30 pEM de l'écran compressé, ex. #3000. Un CRLL #2E08 lance la routine. 

40 h=R=S= 0 = REPERT >REfiDfi* : R=VRL<"#"+R$ > = POKE#2E00+N,R 
50 S=S+fl = ; N=N+1 ; UNTILR$="FIN" 

60 IF SOI 2586 THEN FING FRI HT "ERREUR" 

100 REM DRTRS 

110 ORTR R9,00,85,00,35,04,85,05, R9, R0,35,91R2,00, R0, 00 

120 DRTR B1,00,C9,40,F0,10,R5,04,F0,@C,81,02,R9,00,85,04,E6,02,00,02,E6,03 
130 ORTR 81,00,81,02, E6,02,00,02,E6,03,18,90,16 

140 ORTR E6,04,85,04,C9,3F,00,@E,R5,04,81,02,R9,00,85,04,E6,02,00,02,E6,03 
150 ORTR C8,C0,40,00,C2,13,R9,40,65,00,85,00,R9,00,65,01,85,01 
160 OR T R E6,05, R5,05, C9,7C 1 ,00, RB, R5,04, F0,08,81,02, E 6 ,02,00,02, E6,03 
170 ORTR R5,02,29,C0,85,02, 18,R9,40,65,02,85,02,R9,00,65,03,85,03,60 

180 ORTR FIN ■ 


10 REM Routine de décompression d'un écran HIRES noir et blanc 

20 REM La routine est relogeable. Faites un OOKE 2, RO ; RO adresse de début 

30 REM de l'écran compressé, ex. #3080. Un CRLL #2F08 lance la routine. 

48 N= 8 : 3=0 : REPERT«REROR* : fi=VRL<"#"+H$ ) = P0KE#2F00+N,R 
50 S=S+fl: :N=H+1 :UNTILR$="FIN" 

68 IF 309494 THEN PING : PRIHT "ERREUR" 

100 REM OECOMP-DRTRS 

110 ORTR R9,00,85,00,85,04,35,85,R9,R0,85,81,R2,00,R8,88 

120 ORTR R1,02,29,48,00,lfi,R9,48,91,88,E6,84,R1,02,38,E9,81,81,02,00,15 

130 ORTR R5,04,81,82,R9,00,85,04,18,90,04 

148 ORTR fil,02,91,80,E6,02,00,02,E6,03 

158 ORTR C8,C0,48,00,01,13,89,40,65,88,85,00,89,00,65,01,85,01 
160 ORTR E6,85,R5,05,C9,70,09,BR 

ORTR R5,02,29, CO, 85,02,13, R9, 40,65,02,85,82, R9, 88 , t,5,0o, 85,83,68 
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180 


ORTR FIN 


Desass 

embla.9e 

29. 

3.86 

COMP 





$2E80 

R9O0 

LOR 

#$80 


$2E86 

3585 

STR 

$85 

S2E02 

8508 

STR 

$00 


$2E88 

R9R8 

LOR- 

#$RÔ 

$2E84 

8584 

STR 

$84 


$2E8R 

3581 

STR 

$01 
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$2E0C 

R2Ô0 

LDX 

#$00 





$2E@E 

R 000 

LDY 

#$00 


DECOMP 


$2E 18 

B 100 

LDR 

y $00 >.. Y 





$2E12 

C940 

CMP 

#$40 





$2E14 

F 01D 

BEQ 

$2E33 

Desass 

ernb l .3.9* 

28 • 

3.86 

$2E1S 

R504 

LDR 

$04 





$2E18 

F00C 

BEQ 

$2E2F 





$2'E 1 Fl 

8102 

STR 

( $02 .• X > 

$2F00 

R900 

LDR 

#$00 

$2E 1G 

R900 

LDR 

#$00 

$2F02 

8500 

STR 

$00 

$2E1E 

8504 

STR 

$04 

$2F04 

8504 

STR 

$04 

$2E20 

E602 

INC 

$02 

$2F0F 

8505 

STR 

$05 

$2E22 

D002 

ENE 

$2E26 

$2F08 

R9R0 

LDR 

#$R0 

$2E24 

EF 03 

INC 

$03 

$2F0R 

8501 

STR 

$01 

$2E26 

B100 

LDR 

< $00 >,Y 

$2F0C 

R200 

LDX 

#$00 

$2E28 

8102 

STR 

< $02 .■ x > 

$2F0E 

R fi OQ 

LDY 

#$00 

$2E2R 

EF 02 

INC 

$02 

$2F10 

R102 

LDR 

< $02,X > 

$2E2C 

DQ02 

BHE 

$2E30 

$2F12 

294Û 

RND 

#$40 

$2E2E 

EF03 

INC 

$03 

$2F 14 

D01R 

BNE 

$2F3@ 

$2E30 

18 

CLC 


$2F 16 

R940 

LDR 

#$4ü 

$2E31 

901F 

BCC 

$2E49 

$2F 18 

9100 

STR 

< $00 y 

$2E33 

EF04 

INC 

$04 

$2F1R 

EF04 

INC 

$04 

$2E35 

R504 

LDR 

$04 

$2F IC 

R102 

LDR 

<$ 02 ,y> 

$2E37 

C93F 

CMP 

#$3F 

$2F1E 

O O 

SEC 


$2E39 

D00E 

ENE 

$2E49 

$2F 1F 

Ê901 

SBC 

#$01 

$2E3B 

R504 

LDR 

$04 

$2F21 

8102 

STR 

<$02>X> 

$2E3D 

8102 

STR 

< $02 • X > 

$2F23 

D015 

BNE 

$2F3R 

$2E3F 

R900 

LDR 

#$00 

$2F25 

R504 

LDR 

$04 

$2E41 

8504 

STR 

$04 

$2F27 

8102 

STR 

< $02 * X > 

$2E43 

EF02 

INC 

$02 

$2F29 

R900 

LDR 

#$00 

$2E45 

D002 

BNE 

$2E49 

$2F2B 

85Û4 

STR 

$04 

$2E47 

EF 03 

INC 

$03 

$2F2D 

18 

CLC 


$2E49 

C8 

I NY 


$2F2E 

9Ô04 

BCC 

$2F34 

$2E4R 

C040 

CPY 

#$40 

$2F30 

R102 

LDR 

<$02,X> 

$2E4C 

D0C2 

BNE 

$2E10 

$2F32 

9100 

STR 

< $00 >.. Y 

$2E4E 

18 

CLC 


$2F34 

EFÔ2 

I NC 

$02 

$2E4F 

R940 

LDR 

#$40 

$2F3F 

D002 

BNE 

$2F3R 

$2E51 

6500 

RDC 

$00 

$2F38 

E603 

INC 

$03 

$2E53 

8500 

STR 

$00 

$2F3R 

CS 

I NY 


$2E55 

R9Ü0 

LDR 

#$00 

$2F3B 

C040 

CPY 

#$40 

$^Ej7 

6501 

RDC 

$01 

$2F3D 

D0D1 

BNE 

$2F10 

$2E59 

85Ü1 

STR 

$01 

$2F3F 

18 

CLC 


S2E5B 

EF05 

INC 

$05 

$2F40 

R94Ô 

LDR 

#$4Ô 

$2E5D 

R505 

LDR 

$05 

$2F42 

6500 

RDC 

$00 

$2E5F 

C97D 

CMP 

#$7D 

$2F44 

8500 

STR 

$00 

$2F6 1 

D0RB 

BNE 

$2E0E 

$2F46 

0900 

LDR 

#$00 

$2E63 

R504 

LDR 

$04 

$2F 48 

6501 

RDC 

$01 

$2E65 

F Ü0i 8 

BEQ 

$2EFF 

$2F4R 

8501 

STR 

$01 

$2E67 

8 ï 02 

STR 

< $02.. X > 

$2F4C 

EF05 

INC 

$05 

S2E69 

EF0i2 

INC 

$02 

$2F4E 

R505 

LDR 

$05 

$. :, E6B 

0002 

BNE 

$2E6F 

$2F50 

C97D 

CMP 

#$7D 

$2E6D 

EF03 

INC 

$03 

$2F52 

D0BR 

BNE 

$2F0E 

$2E6F 

R502 

LDR 

$02 

$2F54 

R502 

LDR 

$Ô2 

$2E71 

29C0 

RND 

#$C0 

$2F5F 

29C0 

RND 

#$C0 

$2E73 

8502 

STR 

$02 

$2F58 

8502 

STR 

$02 

$2E75 

18 

CLC 


$2F5R 

18 

CLC 


$2E76 

R94Û 

LDR 

#$40 

$2F5B 

fi 940 

LDR 

#$4Ô 

$2E78 

6502 

RDC 

$02 

$2F5D 

6502 

RDC 

$02 

$2E7R 

8P!02 

STR 

$02 

$2F5F 

8502 

STR 

$02 

$2E7C 

R900 

LDR 

#$00 

$2FF1 

fi900 

LDR 

#$00 

$2E7E 

6503 

RDC 

$03 

$2F 63 

6503 

RDC 

$03 

$2E30 

8503 

STR 

$03 

$2FF5 

8503 

STR 

$03 

$2ES2 

60 

PTS 


$2FF7 

60 

RTS 


OK.. . 

■ 



OK... 

■ 
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Programme de démonstration 


0 HIMEM #2DFF=DOKE2/#3000 

1 REM Exécutez les routines "COUP" et "DECÜMP" 

2 REM Mouvement circulaire d'un SaroscoPe 

3 REM Le Pro9ra.mme en BASIC créé 43 écrans HIRES 

4 REM Les écrans sont compressés 

5 REM fl la fin; vous verrez le mouvement circulaire de façon cohérente 
10 CLS: PRINT = PRINT = PRINT 

20 PRINT" 0istance de l'observateur D= 10"•0=10 : REM 0=10-100 
30 PRINT" Nombre d'écrans à sauver N = 43" H=43 UAITSOO 
40 REM Valeurs constantes 
50 DF=2*RIxN = SF=SINC DF ) :CF=C0SC DF > 

60 DP=PI'25 :SP=SINC DP > «CP=C0SCDP > 

70 K1=3x4 :K2=SQRC3)x4 
80 D0KE#306..#FFFF 
30 REM Deux boucles 
100 E=0=Dfl=1 : DB=0 
110 REREflT 

115 REM Ml..M2..M3 Milieu, de la base du cône 
120 M1 =K 1 *Dfl •• M2=K 1*DB = M3=K2 
130 fl 1 =-*DBx2 : A2=Dflx2 = A3=0 
140 B1 =— Dflx 4 : B2=~DE!X4= E‘J=K2 
150 Lfl=l : LB=0 = M=0 : HIRES « POKE 618.. 10 
160 :REREflT 

165 REM Al • A2.. A3-B1 .• B2..B3 axes de la base du cône.. SI..S2.. S3 bord de la 
170 = S1 =M 1 +fl 1 TLfl+B 1 tLB 
180 =S2=M2+fl2*Lfl+B2*LB 
190 :S3=M3+fl3*LA+B3*LB 

200 =KD=S1xD : X=S2xC1-KD) : Y=S3xC1-KD > : REM Rro j ection 
210 K=INTC80YK+.5 > «Y=-1NTC80*Y+.5 > 

220 : CURSET K+120..Y+120.1 

230 ^ IF C M'5 >= I NTC Mx5 > THEN CURSET 120,. 120,0; DRAW K ; Y, 1 
240 : M=M+1 

250 «LM=LfltCP-LBYSP:LB=LB*CP+Lfi*SP=Lfl=LM 
260 sUNTIL M=50 
270 CflLL#2E00 : E=E+1 

280 DM=Dfi*CF-DB*SF=DB=DBTCF+DBTSF:Dfl=DM 
290 UNTIL E=N 

30O TEKT:PÜKE618.10 = PRINTCHRÏC12> : PRINTCHRïC4>;=PRIHTCHRÏC27 >;"N"; 

310 PRINT"Mouvement circulaire d'un cône" 

320 PRINTCHRÏC4 > = WflIT200 = HIRES = POKE 618 -10 = TT=5 
330 D0KE2 .• #3000 

340 FOR N=1T043 = CflLL#2F00 = NEKT = TT=TT-1 = IF TT >0THEH330 
350 DOKE#306.. 10000 ■ 



DP 


CONE 
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SINGERIE 



Ê^Êous vous l'avions dit : nous avons en stock quelques 
MVv longs programmes, de qualité commerciale, qui ne 
V W peuvent être publiés qu'en plusieurs fois. Après le 
célèbre LEONARD d'Eric VIEL, voici, dans un tout autre 
genre, un jeu d'arcade superbement réalisé, écrit entiè¬ 
rement en langage machine, compatible ORIC-1 /ATMOS. 




Chaque médaille ayant son 
revers, il vous faudra un peu de 
courage pour saisir les longues 
lignes de DATA dans lesquelles 
sont rangés les octets du code 
machine, mais vous ne le regret¬ 
terez pas... 

Le thème du jeu est simple : il 
faut délivrer votre bien-aimée de 
l'horrible King-Kong. Celui-ci 
vous voit grimper aux échelles du 
plus mauvais œil et s'acharne à 
vous lancer des tonneaux, pour 
ralentir votre progression. La réa¬ 
lisation est superbe, alors au bou¬ 
lot ! 

Avant de vous lancer à corps 
perdu dans la saisie de ce listing, 
lisez ces quelques conseils : 

— Malgré la présence d'une 
somme de contrôle, il est tou¬ 
jours possible de se tromper 
(intervertir 2 octets, par exem¬ 
ple), aussi relisez la ligne avant de 
la valider : vous éviterez des 
recherches fastidieuses par la 
suite. 

— Le programme a été découpé 
en 6 parties. Les octets sont ran¬ 
gés dans des lignes de DATA. 
Chaque listing constitue donc un 
programme Basic ; sauvegardez- 
le sur une cassette (ou disquette) 
après l'avoir saisi, vous serez 
peut-être heureux de retrouver 
ces "sources Basic" un jour ! 
Comment procéder ? C'est très 
simple. Le premier listing que 


nous publions implante le code 
machine de #2E40 à #373F. 
Après l'avoir saisi et sauvegardé 
sur une cassette, faire RUN. Nor¬ 
malement, if ne doit pas y avoir 
d'erreur parce que vous avez 
accordé un soin extrême à la sai¬ 
sie... S'il y a des erreurs, le 
numéro de ligne est indiqué ; 
corrigez-les et n'oubliez pas de 
sauvegarder cette version corri¬ 
gée au lieu de la précédente. 
Après avoir fait RUN donc, le 
code machine de la première par¬ 
tie est implanté en mémoire. 
Faites-en alors la sauvegarde sur 
une autre cassette, qui recevra 
les 6 parties du code machine. 
CSAVE "SINGE1",A# 2E40, 
E # 373F. 

Les adresses de début et de fin 
sont, pour chaque partie, don¬ 
nées par les variables A et F en 
ligne 10 du programme Basic cor¬ 
respondant. 

Recommencez toutes les opéra¬ 
tions avec le listing 2. Sauvegar¬ 
dez le code machine correspon¬ 
dant sur la cassette appropriée. 
CSAVE "SINGE2",A# 3740, 
E#3FFF. 

Nous vous expliquerons dans le 
dernier article de cette série, 
comment rassembler les diffé¬ 
rents morceaux. 


A SUIVRE... 












10 A=#2E40:F=«373F:L=100:REPEAT: FOR A=A TO A*15:PEAD Ct 
20 K=VAL( , » , +C*):S=S+K*65536*(S+K>65535>:IF A<=F THEN POKE A.K 
30 N£XT:R£AD D*:IF S=VAL(* »*+IX > THEN L=L+5:UNTIL A)F:END 
♦0 PIN6:PRINT'Erreur ligne*;L 

100 DATA Cl.10,20,20.20.20,20.20,20,20.20.20.20.20,20,20,0291 
105 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20.20,20,20,0491 
110 DATA 20,20,20,20,20,20,20,20,10,06,20,20,20,20,20,20.0667 
115 DATA 20,20.20.20,20,20,20,20,20,20,20,20,20,20,20,20.0867 
120 DATA 20,20.20,20,20,20,20,20,20,20.20,20,20,20,20,20,0A67 
125 DATA 10,06,09,4E,AF,54,45,20.A4,45,20,AC,27,41,55,54,0DE2 
130 DATA 45,55.52,3A,20,20,20,20,20,20.20,20,20,20,20,20,1088 
135 DATA 20.20,20,20.20,20.20.20,10,06.09,20.20,20.20,20,1247 
140 DATA 20,20,20,20,20,20,20,20,20,20,20,53,49,20,56,4F,1508 
145 DATA 55,53,20,43,4F,4E,53,54,41,54,45,5A,20,20,20,20,190E 
150 DATA 10,06,09,55,4E,45,20.51.55,45,4C,43,4F.4E,51,55,1CEF 
155 DATA 45.20,52,45,53,53,45,4D,42,4C,41,48,43,45,20,45,2120 
160 DATA 4E,54,52,45,20,20,20,20,10,06,09,43,45,54,54,45,247A 
165 DATA 20,48,49,53,54,4F,49,52,45,20.45,54,20,44,45,53,2886 
170 DATA 20,45,56,45,4E.45,4D,45,4E,54,53,2O,2O.2O.2O,2O,2C70 
175 DATA 10,06,09,52,45,45,4C,53,20.43,4F,4E,53,55*4C.54,3052 
180 DATA 45,5A,20,56,4F,54,52,45,20,50,53,59,43,48,49,41,3402 
185 DATA 54.52,45,20,20,20,20,20,10,06,09,53,41,4E.53,20,3701 
190 DATA 41,54,54.45,4E,44,52.45,20,4F,55,20,54,45.4C,45,3C36 
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195 DATA 50.48,4F.4E,45.5A.20,41,55.20.5A,4F,4F,20,20,20.4038 
200 DATA 10,06,09,4C,45.20.50.4C,55,53,20,50,52,4F.43,48,43EB 
205 DATA 45,20,21,21.21,21,21,21,21,21,20,20,20,20,20,20,4615 
210 DATA 20,20,20,20,20,20,20,20,10,06,20,20,20,20,20.20,47EB 
215 DATA 20,20,20,20,20.20,20.20,20,20,20,20.20,20,20.20.49EB 
220 DATA 20.20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,4BEB 
225 DATA 10,06,20,20,20.20,20,20,20,20,20,20,20,20,20,20.4DC1 
230 DATA 20,20,20.20,20,20,20,20,20,20,20.20,20,20,20.20,4FC1 
235 DATA 20,20,20,20,20.20,20,20,10,06,20,20,20,20,20,20.5197 
240 DATA 20,20,20,20,20,20,20,02,21,22,23,24,25,26,27,28,5390 
245 DATA 20,20,20,20,20,20,20,20,20.20,20,20,20,20,20.20,5590 
250 DATA 10.06,20,20,20,20,20,20,20,20,20,20,20,20,20,02,5755 
255 DATA 29,2A,2B,2C,2D,2E,2F,30.20,20.20,20,20,20,20,20,59B9 
260 DATA 20,20,20,20,20,20,20,20,10,06,20,20,20,20,20,FC,5C6B 
265 DATA FC,FC,FC,FC,FC,FC,FC,02,31,32,33,34,35.36,37,38,64F5 
270 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,66F5 
275 DATA 10,06,20,20,20.20,20.FC,20,20.20,20,20,20,20,20,6947 
280 DATA 20,20,20,20,20,20,20,20,20.20,20,20.20,20,20,20,6BA7 
285 DATA 20.20,20,20,20,20,20,20,10,06,20,20.20,20.20.FC,6E59 
290 DATA 01,41,42,43,44,45,06,FC.20,20,20,20,20,20,20,20,71AB 
295 DATA 20,20,62,63,64,03,51,52.53,20,20,20,20,20,20,20,74ED 
300 DATA 10.06.20,20.20,20,20,FC,01.46.47,48,49,4A,06,FC,790A 
305 DATA 20,20,20,20,20.20,20,20,20,20,65,66,67,04,54,55,7C29 
310 DATA 56,20,20,20,20,20,20,20,10,06,20,20,20,20,20.FC.7F11 
315 DATA 01,4B,4C,4D,4E, 4F,06,FC,20,20,20,20,20,20,20,20,8295 
320 DATA 20.20,68,69,6A,04,57,58,59,20,20,20,20,20,20,20,85FC 
325 DATA 10.06,20,20.20. FC,FC,FC,FC,FC.FC,FC,FC,FC,FC,FC,9146 
330 DATA FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,A106 
335 DATA FC, FC.FC,FC,20,20,20.20,10.06.20,20,20. FC, 20.20,A728 
340 DATA 20,20,20.20,20.20,20,20,20,20,20,20,20,20,20,20,A928 
345 DATA 20,20.20,20,20.20,20.20,20,20,20,FC,20,20,20.20.AC04 
350 DATA là,06,20,20,20.FC,20,FC,FC,20,20,FC,FC,FC,20.FC,B3DE 
355 DATA FC, FC,20, FC, 20, FC, 20,FC, FC,FC, 20,20,20,FC,20.20.BCBE 
360 DATA 20,FC,20,FC,20.20,20,20,10.06,20,20.20,FC,20,FC,C204 
365 DATA 20,FC,20,FC,20.FC,20,FC,20,FC,20,FC,20.FC,20,FC.CAE4 
370 DATA 20,FC,20,20,20,FC,20,20.20.FC,20,FC,20,20,20,20,0054 
375 DATA 10,06,20.20,20. FC,20.FC,FC,FC,20.FC,FC,FC,20,FC,D90A 
380 DATA FC,FC,20,FC,20.FC,20,FC,20,FC,20,20,20,FC,20.20,E10E 
385 DATA 20.FC,20,FC.20,20,20,20,10,06,20,20,20,FC,20.FC,E654 
390 DATA 20.FC,20,FC,FC, 20,20,FC, 20,FC,20,FC,20,FC,20,"C.EF34 
395 DATA 20,FC,20,20,20, FC,20.20,20,FC,20,FC,20.20,20.20,F4A4 
400 DATA 10,06,20,20,20,FC,20,FC,20,FC,20,FC,20,FC,20,FC,FEA2 
405 DATA 20,FC,20,FC,20,FC,20,FC,20,FC,20,20,20,20,20,20.01EE 
410 DATA 20,20,20,FC,20.20,20,20,10,06,20,20,20.FC.20.FC,0658 



415 DATA FC,20,20,FC.20,FC,20.FC.20,FC,20,20,FC,20.20,FC,0E5C 
420 DATA FC,FC,20,20,20.FC.20,20,20,FC,20,FC,20,20,20,20,14AB 
425 DATA 10.06,20,20.20,FC,20,20,20,20,20,20,20,20,20,20,175A 
430 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20.195A 
435 DATA 20,20.20,FC,20,20,20,20, IA, IA, IA, IA,IA, IA,IA,IA,1C06 
440 DATA IA,IA,IA,IA,IA,IA,IA,IA,IA,IA,IA,IA,IA,IA,IA,IA,1DA6 
445 DATA IA,IA,IA,IA,IA,IA,IA,IA,IA,IA,IA,IA,IA,IA,IA,IA,1F46 
450 Data 06,20,20,20,20,20,01,41.42,43.44,45,20,03,51,52,2202 
455 DATA 53,06,20,20,20,20,20,20,38,20,20.20,20,20,20,20,2436 
460 .DATA 20,20,20,20,20,20,20,3A,06,20.20,20,20,20,01.46,2630 
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465 DATA 47,48,49,4A,20,05.54,55,56.06,20.20,20,20,20,20.2949 
470 DATA 7D,7D.7D,3C.3D,3E,7D,7D,7D,7D,7D.7D,7D,7D,7D,70,3059 
475 DATA 06,20,20.20,20.20,01,4B,4C,4D,4E,4F,20.05,57,58.3355 
480 DATA 59,06,20.20,20.20,20,20,FC,FC,FC.3C.3D.3E.FC,FC.3A17 
485 DATA FC,FC,FC,FC,FC,FC,FC,FC,06,20.20,20,20,20.3A.FC,43D3 
490 DATA FC,FC,FC,FC,FC,FC,FC.FC,FC,3B.20.20,21,3C,3D.3E,4E02 
495 DATA 21.20,20,20,20.20.20,20.20,20,20,20.20,20.20,20,5003 
500 DATA 06,20,20,20,20,3A,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,5A9B 
505 DATA FC,FC,3B.20,21,3C,3D.3E,20,20,20.20,20,20,20,20,5EC6 
510 DATA 20,20,20,20,20,20,20,20,06,20.20.20,3A,FC,FC,FC,635A 
515 DATA FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,3B,21,3C,3D,3E,6F41 
520 DATA 20,20,20,20,20,20,20,20,20,20.20,20,20,20,20,20,7141 
525 DATA 06,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC.FC,FC,FC,FC,FC,800B 
530 DATA FC,FC,FC,FC,FC,3C,3D,3E,20,20.20,20,20,20,20,20,86AE 
535 DATA 20,20,20,20,20,20,20,20,06.FC,20,20,20,20,20.20,8970 
540 DATA 20,20,20,20,FC,FC,FC,FC,FC,3B,20,20,21,3C,3D,3E,902F 
545 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,3A,9249 
550 DATA 06,FC,09,45,54,4F,4E,4E,41,4E, 54,08,FC,FC,FC.FC.99B3 
555 DATA FC,FC,3C,3D,3E,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,A1C1 
560 DATA 7D,7D,7D,7D,3C,3D,3E,7D,06,FC,20,20,20,20,20,20,A6AB 
565 DATA 20.20,20,20,FC,FC,FC,FC,20,20,20,20,20,20,20,20,AC1B 
570 DATA FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,3C,3D,3E,21,B8C3 
575 DATA 06,FC,FC,09,4E,4F,4E,20,3F,3F,08,FC,FC,FC,FC,20.C06Î 
580 DATA 20,20,20,20,20,20,20,20,20,FC,FC,FC,FC,FC,FC,FC,C86F 
585 DATA FC,FC.FC,FC,3C,3D,3E.21,06,FC,FC,20,20,20.20.20,CFD5 
590 DATA 20,20,20,FC,FC,FC,20,20,20,20,20,20,20,20,20,20,0469 
595 DATA 20,20,FC,FC,FC,FC,FC,FC.FC,FC, FC,FC,3C,3D,3E,21,DF59 
600 DATA 06,FC,FC.FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,20,20,20,EB8F 
605 DATA 20,20,20,20,20,20,20,20,20,20,20,FC,FC,FC,FC,FC,F1DB 
610 DATA FC,20,20,20,3C,3D,3E,21,06,FC,FC,FC,FC,FC,FC,FC,FAF9 
615 DATA FC,FC,FC,FC,20,20,20,20,20,20,20,20,20,20,20,20,0069 
620 DATA 20,20,20,20,FC,FC,FC,FC,FC,20,20,20,3C,30,3E.21,070D 
625 DATA 06,FC,FC.FC,FC,FC,FC,FC,FC,FC,20,20,20,20,20,20.10AF 
630 DATA 20,20,7D,7D,70,20,20,20,20,20,20,20,20.20,FC,FC,157E 
635 DATA FC,20.20,20,3C,3D,3E.21,06,FC, FC,FC,FC,FC,FC,FC,1E9C 
640 DATA 20,20,20,20,20,20,20,20,20,70,20,FC,20,7D,7D,20,22BF 
645 DATA 20,20,20.20,20,20,20,20,FC,FC,FC,FC,3C,3D,3E,21,2857 
650 DATA 06,FC,FC.FC,FC,FC,20,20,20,20,20,20.20,20,20,20,2F89 
655 DATA 7D,FC,20,FC,20,20,FC,7D,7D,20,20,20,20,20,20,20.3434 
660 DATA 20,20,20,21,3C,3D,3E.21,06,20,20,20,20,20,20,20,3673 
665 DATA 20,20,20.20,20,20,20,7D,FC,FC,20,FC,20,20,FC,FC.3D1C 
670 DATA 20,20,20,20,20,20,20,20,20,20.20,21,3C,3D,3E,21,3F75 
675 DATA 06,20.20,20,20,20,20.20,20,20,20,20.20,20,7D,FC, 4294 
680 DATA FC,FC,20,FC,20,20,FC,FC,20,7D,7D,20,20,20,20,20,499A 
685 DATA 20,20,20.21,3C,3D,3E,21,06,21,20,20.20,20,20,20,4BDA 
690 DATA 20,20,20,20,20,70,FC,20,FC,FC,20,FC,20,20,FC,FC,535F 
695 DATA 20,20,FC,7D,70,20,20,20,20,20.20,20,3C,3D,3E,21,5740 
700 DATA 06,21,20,20,20,20,20,20,20,20,20,20,7D,FC,FC,20,5B49 
705 DATA FC,FC,20,FC,20,20,FC,FC,20,20,FC,FC,20,7D,70,20,6407 



710 DATA 20,20,20,20,3C,3D,3E,21,06,21,62,63,64,20,20,20,670F 
715 DATA 20,20,7D,7D,FC,FC,FC,20,FC,FC,20,FC,20,20,FC,FC,70A9 
720 DATA 20,20,FC,FC,20,20,FC,7D,20,20,20,20,3C,3D,3E,21,75F2 
725 DATA 06,21,65,66,67,20,20,20,7D,7D,FC,20,FC,FC,FC,20,7CD5 
730 DATA FC,FC,20,FC,20,20,FC,FC,20,20,FC,FC.20,20,FC,FC,B691 
735 DATA 7D,20,20,20,3C,3D,3E,3A,06,39,68,69,6A,20,7D,7D,8AF3 
740 DATA 20,FC,FC,20,FC,FC,FC,20,FC,FC.20,FC,20,20,FC,FC,958B 
745 DATA 20,20,FC,FC,20,20,FC,FC,FC,7D,7D,7D,3C,3D,3E,7D,9DA2 
750 DATA 06,20,7D,7D,7D,7D,FC,20,20,FC,FC,20,FC,FC,FC,20,A624 
755 DATA FC,FC,20,FC,20,20,FC,FC,20,20,FC,FC,20,20,FC,FC,AFEO 
760 DATA FC,39,20,20,3C,3D,3E,3A,06,20,FC,FC,FC,FC,FC.20,B778 
765 DATA 20,FC,FC,20,FC,FC,FC, 20,FC,FC,20,FC,20,20,FC,FC.C210 
770 DATA 20,20,FC,FC,20,20,FC,FC,FC,7D,7D,7D,7D,7D,7D,7D,CAE7 
775 DATA IA,IA.IA,IA,IA,IA,IA, IA,IA, IA,IA,IA,IA,IA,IA,1A.CC87 
780 DATA IA,IA,IA,IA,IA,IA,IA,IA, IA, IA,IA, IA,IA,IA,IA,1A.CE27 
7B5 DATA IA,IA,IA,IA,IA,IA,1A, 1A,05,01,41,42,43.44,45,20.D06C 
790 DATA 03,51,52,53.05,20,20.20.20,20,20,20.20,20,20,20,D2CA 
795 DATA 20,20,FC,20,20,20,20,20,20,20,20,20,20,20,20,20,D5A6 
800 DATA 05,01,46,47,48,49,4A.20,02,54,55,56,05,20,20,20,D69A 
805 DATA 20,20,20,20,20,20,20,20,20,20.FC,20,20,7D,7D,7D,DC8D 
810 DATA 7D,7D,7D,7D,7D,7D,7D,7D,05,01,4B,4C,4D,4E,4F,20,E21C 
815 DATA 02,57,58,59,05,20,20,20,20,20,20,20,20,20,20,20,E43B 



10 A=t3740:F=#3FFF:L=100:REPEAT:FOR A=A TO A+15:READ C$ 

20 K=VAL( *#* +CS) :S=S+K+65536*(S-H065535) : IF A<=F THEN POKE A,K 
30 NEXT:READ D*:IF S^ALCi’+D*) THEN L=L+5:UKTIL A>F:END 
40 PINSsPRINT'Erreur ligne*;L 

100 DATA 20,20,FC,3B,20,20,20,20,20,20,20,20,20,20,20,20,02F7 
105 DATA 05,3C,3D,3E,7D,7D,7D,7D,7D,7D,7D,70,20,20,20,20.081B 
110 DATA 20,20,20,20,20,20,20,20,21,21,FC,FC,FC,FC,FC,FC,0F45 
115 DATA FC,FC,FC,FC,FC.20,20,20,05,3C,3D,3E,20.20,20,20,15CD 
120 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,17CD 
125 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20.20,20,19CD 
130 DATA 05.3C.3D.3E,20,20,20,20,20,20,20,20,20,20,20,20,1009 
135 DATA 20,20.20,20,20.20,20,20,20,20,20,20,20,20,20.20,1E09 
140 DATA 20,20,20,20,20,20,20.20,05,3C,3D,3E,20.20,20,20,2045 
145 DATA 20,20.20.20.20,20,20,20.20,20,20,20.20,20,20,20,2245 
150 DATA 20,20,20,20,20,20,20,20,20,20.20,20,20,20,20,20,2445 
155 DATA 05,3C.3D.3E,20,20,20,20.20,20.20,20.20,20,20,20.2681 
160 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20.20.20,20,2881 
165 DATA 20,20,20.20,20,20,20.3A,05,7D.7D.7D,7D,7D,7D.7D,2D0B 
170 DATA 7D,7D,7D,7D,7D,7D,20,20,20,20,20,20,20.20,7D,7D,31F3 
175 DATA 7D,3C,30,3E, 7D,7D,7D,7D,7D,7D,7D,7D,30,3D,3E,70,3843 
180 DATA 05,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,3A28 
185 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,3C28 
190 DATA 20,20,20,20,3C,3D,3£,21,05,20,20,20,20,2Q,20,20,3E65 
195 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,4065 
200 DATA 20,20,20,20,20,20,20,20,20,20,20,20,3C,3D,3E,21,42BD 
205 DATA 05,20,20,20.20,20,20,20,20,20.20,20,20.20,20,20,44A2 
210 DATA 20,20,20,20,20,20,20,20,20,20,20.20,20,20,20,20,46A2 
215 DATA 20,20,20,20,3C,3D,3E,21,05,20,20,20,20,20,20,20,48DF 
220 DATA 20,20,20,20,20.20,20.20,20,20,20,20,20,20,20,20,4ADF 
225 DATA 20,20,20.20,20,20,20,20,20,20,20,20,3C,3D,3E, 21,4037 
230 DATA 05,20,20,20,20,20,20,20,20,20,3A,7D,7D,7D,20,20,504D 
235 DATA 20,20,20,20,20,20,7D,7D,7D,7D,7D,7D,7D,7D,3C,3D,556E 
240 DATA 3E,7D,7D,7D,3C,3D,3E,7D,05,7D,7D,7D,7D,7D,3C,3D,5B46 
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245 DATA 3E,7D,7D,FC,FC,FC,20,20.20,20,20,20,20,20,20,FC,61BE 
250 DATA 20,20,20,20,20,20,20,20,20,20,20,FC,3C,3D,3E,21,64C2 
255 DATA 05,20,20,20.20,21,3C,3D,3E,20,20,20,20,FC,20,20,67DE 
260 DATA 20,20,20,20,20,20,20.FC,20,20,20,20,20,20,20,20.6AB7 
265 DATA 20.20,20,FC,3C.3D,3E,21,05,20,20,20,20,21,3C.30,6E0A 
270 DATA 3E,20,20,20,20,FC,20,20,20,20,20,20,20,20,20,FC,71E0 
275 DATA 20,20,20,20,20,20,20,20,20,20,20,FC,3C,3D,3E.21,7514 
280 DATA 05,20,20,20,20,21,3C,3D,3E,20,20,20,20,FC,20,20,782D 
285 DATA 20,20,20,20,20,20,20,7D,3C,3D,3E,7D,7D,7D,3C,3D,7C31 
290 DATA 3E,7D,7D,7D,3C,3D,3E,21,05,20,20,20,20,21,3C,3D,7FDD 
295 DATA 3E,7D,7D,7D,7D,7D,20,20,20,20,20,20,20,20,20,FC,84A8 
300 DATA 3C,3D,3E,20,20,20,3C,3D,3E,20,20,20,3C,3D,3E,21,87AE 
305 DATA 05,20,20.20,20,21,3C,3D,3E,20,20,20,20,FC,20,20,8AC7 
310 DATA 20,20,20,20,20,20,20,FC,3C,3D,3E,FC,FC,FC,3C,3D,90C7 
315 DATA 3E,FC.FC,FC,3C,3D,3E,21,05,21,20,20,20,21.3C,3D,95F1 
320 DATA 3E,20,20,20,20,FC,20,20,20,20.20,20,20.20.20,FC,99C7 
325 DATA 3C,3D,3E,FC,FC,FC,3C,3D,3E,FC.FC,FC,3C,3D,3E,21,A1F5 
330 DATA 05,21,20,20,20,20,3C,3D,3E,20,20,20,20,FC,20,20,A50E 
335 DATA 20,20,20.20,20,20.20,20,3C,3D,3E,FC,FC,FC,3C,3D.AA32 
340 DATA 3E,20,20,20,3C,3D,3£,21,05,21,62,63,64,20,3C,3D.AD90 
345 DATA 3E,7D,7D,7D,7D,7D,20,20,20,20,20,20,20,20,20,20,B17F 
350 DATA 3C,3D,3E,FC,FC,FC,3C,3D,3E,20,20,20,3C,3D,3E,21,Ï719 
355 DATA 05,21,65,66,67,20,3C,3D,3E,FC,FC,FC,FC,FC,20,20,BE74 
360 DATA 20,20,20,20,20,20,20,20,3C,3D,3E,FC,FC,FC,3C,3D,C398 
365 DATA 3E,20,20,20,3C,3D,3E,21,05,39,68,69,6A,20,3C,3D,C720 
370 DATA 3E,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,C93E 
375 DATA 3C,3D,3E.20,20,20,3C,3D,3E,20,20,20,3C,3D,3E,3A,CC5D 
3e0 DATA 05,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,D3B5 
385 DATA 7D,70,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,70,7D,DB85 
390 DATA 7D,7D,7D,7D,7D,7D,7D,7D,IA,IA,IA,IA,IA,1A,1A,1A,E03D 
395 DATA IA, IA,IA,IA, IA,IA,IA,IA,IA,IA,IA,IA,IA,IA,IA,1A,E1DD 
400 DATA IA,IA,IA,IA, IA, IA,IA,IA, IA,IA,IA,IA,IA,IA,IA,1A,E37D 
405 DATA 03,20,20,20,20,20,20,20.20,20.20,20,20,01,41,42,E584 
410 DATA 43,44,45,20,03,51,52,53,03,20,20,20,20,20,20.20,EB4C 
415 DATA 20.20.20.20.20.20,20.20,03.20,20.20.20.20.20.20.EA2F 
420 DATA 20.20,20,20,20,01,46,47,48,49,4A,20,05,54,55,56,ED5C 
425 DATA 03,20,20.20,20,20.20,20,20,20,20,20,20,20,20,20,EF3F 
430 DATA 03,20,20,20,20,20,20,20,20,20.20,20,20,01,48,4C,F15A 
435 DATA 4D,4E,4F,20,05,57,58,59,03,20,20,20,20,20,20,20,F454 
440 DATA 20,20,20,20,20,20,20,20,03,20,20,20,20,20,20,3C,F653 
445 DATA 3D,3E,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D.7D,7D,FDA4 
450 DATA 7D,7D,7D,FC,FC,FC,FC,FC,FC,FC,FC,FC,3C,3D,3E,FC,09AA 
455 DATA 03.20,20,20,20,20,20,3C,3I>,3E,FC,FC,09,43,4F,55,0E0C 
460 DATA 52,41,47,45,21,08,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,192C 
465 DATA FC,FC,FC,FC,3C,3D,3E.FC,03,20,20,20,20,7D,7D,20.206C 
470 DATA 20,20,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,2E74 
475 DATA FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,3C,3D.3E,FC,3BF7 
480 DATA 03.20.20,20,7D,3B,20,20,20,20,20,20,20,20,20,20,3E52 
485 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,4052 
490 DATA 20,20,20,20,3C,3D,3E,3A,03,20,20,20,FC,FC,FC,7D,4597 
495 DATA 70,70,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,4D67 
500 DATA 7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,3C,3D,3E,7D,5477 
505 DATA 03,3B,20,20,20,20,20,FC,FC,FC,FC,09,45,4E,43,4F,5A73 
510 DATA 52,45,20,32,20,54,41,42,4C,45,41,55,58,2C;21,21,5E34 
515 DATA 21,08,FC.FC, 3C,3D,3E,21,03,7D,7D,7D,7D,20.20,20,6384 
520 DATA 20,20,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC.FC,FC,FC,718C 
525 DATA FC.FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,3C,3D.3E,21,7E34 
530 DATA 03,20,20,20,20,7D,7D,70,20,20,20,20,FC,FC,FC,FC,849E 
535 DATA 20,20,20,20,20,20,20,20,20,20.20,20,20,20,20,20.869E 
540 DATA 20,20,20,20,3C,3D,3E,21,03,20,20,20.20,20,20,20,B8D9 
545 DATA 7D,70,20,20,20,20.20.20,20.20,20,20,20,20,20,20,8B93 
550 DATA 20,20,20,20,20,20,20,20,20,20,20,20,3C,3D,3E,21,8D£B 
555 DATA 03,6F, 70»71,20,20,20,20,20,20,7D,3C,3D,3E,FC,20,924E 
560 DATA 20,20,20.20,20,20,20,20,20,20,20,20,20,20,20,20,944E 


565 DATA 20,20,20.20,3C,3D,3E,21,03,72,73,74,20,20,20,20,9782 
570 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,9982 
575 DATA 20.20,20,20,20.20,20,20.20,20,20,20,3C, 3D, 3E, 3A, 9BF3 
580 DATA 03,75,76,77,20,20,20,20,20,20,20,20.20,20,20,3A.9EF2 
585 DATA 3C,30,3E,3C,3D,3E.7D,7D,7D,7D,7D,7D,7D,3C,3D,3E,A482 
590 DATA 7D,7D,7D,7D,7D,7D,7D,7D,03,FC,FC,FC,FC,20,20,20,ACBD 
595 DATA 20,7D,7D,7D.7D,7D,7D,7D,3C,3D,3E,20,20,20,20.20,B!9F 
600 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20.839F 
605 DATA 03,20,20,20,20,20,20,20,70,20,20,20,20,20,20,FC,B6BB 
610 DATA 3C,3D,3E,20,20,20,20,20,20.20,20,20,20,20,20,20,8912 
615 DATA 20,20,20,20,20,20,20,20,03,20,20,20,20,20,20,20, BAF5 
620 DATA 20,20,20,20,20,20,20,FC,3C,3D,3E,20,20,20,20,20,BE28 
625 DATA 20.20,20,20,20,20,20,20,20,20,20,20,20.20,20,20, C028 
630 DATA 03,3B,20,20,20,20,20,20,20,20,20,20,20,20,20,20,C226 
635 DATA 3C,3D,3E,20,20,20,20,20.20.20,20,20,20,20,20,20,C47D 
640 DATA 20,20,20,20,20,20,20,3A,03,7D,7D,7D,3C,3D,3E,7D,C845 
645 DATA 7D,7D,7D,7D,3C,3D,3E,7D,7D,7D,7D,3C,3D,3E,7D,7D,CE95 
650 DATA 7D,7D,7D,7D,7D,3C,3D,3E,7D,7D,7D,7D.3C,3D.3E,7D,D4E5 
655 DATA 03,62,63.64.20,20.20,20,20,20,20,20,20.20,20,20,0791 
660 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,0991 
665 DATA 20,20,20.20,3C,3D,3E,21.03,65,66,67,20,20,20,20,DC9E 
670 DATA 20,20,20,20,20.20,20,20,20,20,20,20,20,20.20,20,DE9E 
675 DATA 20,20,20.20,20.20,20,20,20,20,20,20,3C, 3D,3E, 21,E0F6 
680 DATA 03,68,69,6A,20,20,20,20,20,20,20,20,20,20,20,20,E3B4 
685 DATA 20,20,20,20,20.20,20,20,20,20,20,20,20,20.20,20.E5B4 
690 DATA 20,20,20,20,3C,3D,3E,21,03,7D,7D,7D,3C,3D,3E,7D,E9BA 



695 DATA 7D,7D,7D,7D,3C,3D,3E,7D,7D,7D,7D,3C,3D,3E,7D,7D,F00A 
700 DATA 7D,7D,7D,7D,7D,3C,3D,3E,7D,7D,7D,7D,3C,3D,3E,7D,F65A 
705 DATA 03.39,20.20,20.20,20.20,20,20,20,20,20,20,20,20,F856 
710 DATA 20,20,20,20,20,20,20,20,20,20,20,20.20,20,20,20,FA56 
715 DATA 20,20,20,20,20,20,20,3A,03,7D, 7D, 7D, 7D, 7D, 7D, 7D,FEDE 
720 DATA 7D,7D,7D,7D,7D.7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,06AE 
725 DATA 7D,7D,7D,7D,7D,7D.7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,0E7E 
730 DATA 16,06,IA,IA,IA,IA,IA,IA, IA, IA, IA,IA,IA,IA,IA,IA, 1006 
735 DATA IA,IA,IA,IA, IA, IA, IA, IA, IA, IA, IA, IA, IA,IA,IA,IA,11A6 
740 DATA IA,IA,IA,IA,IA,IA,IA,IA,16,00,09,53,54,45,50,48,1419 
745 DATA 41,4E,45,20,4D,41,53,53,41,52.54,20,20,20,20,20,17C8 
750 DATA 50,52,45,53,45,4E,54,45,3A, 20,20,20.20,20,20,20.1848 
755 DATA 16,02,20,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,21D9 
760 DATA 7D.7D,70,20,20,20,20,20,7D,7D,7D,7D,7D,7D,7D,7D,27D8 
765 DATA 70,20,20.20,20.20,20,20,16,00,20,20,20,20,20,20,2A0B 
770 DATA 20,20.20,20,20,20,20,20,20,20,20,20,20,20,20,20,2C0B 
775 DATA 20,20,20,20,20,20,20.20,20,20,20,20,20,20,20.20.2E0Î 
780 DATA 16,00.20,20,20,20.20,20.20,20.20,20,20,20.20,20,2FE1 
785 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,31E1 
790 DATA 20,20,20,20,20,20,20,20,16,00,20,20,20,20,20,20,33B7 
795 DATA 20,20,20,20,20,20,20.20,20,20,20,20.20,20,20,20,35B7 
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N ous voilà enfin au terme de notre exploration et 
il ne nous reste plus aujourd'hui que les 7 derniers 
verbes à analyser. Aucun d'entr'eux ne présentant 
de difficulté particulière, voilà qui devrait être vite fait. 


Marcel LE JEUNE 


%\ 

i 


ALLUMER 

1420 à 1440 — On ne peut allu¬ 
mer que la lampe ou le cierge. 
1450 — Il faut impérativement 
transporter la lampe pour pouvoir 
l'allumer. 

1460 — Le fait d'allumer la lampe 
dans le couloir sombre et humide 
fait apparaître une trappe fermée 
par une chaîne. On traite les flags 
en conséquence, et on revient à 
la routine principale. 

ETEINDRE 

1520 — Seule la lampe de poche 
peut être éteinte. 

1530 — Encore faut-il la trans¬ 
porter... 

1540 à 1650 — Réactualisation 
de l'état des flags. 

POSER - JETER 

1 590 et 1595 — On teste si l'ob¬ 
jet peut effectivement être jeté. 
1597 — Sinon, vous aurez le 
droit au traditionnel message 
moqueur... 

1600 — Seul un objet transporté 
peut être jeté ou posé. 

1610 — L'objet posé ou jeté 
réapparaît dans la liste des objets 
visibles dans la pièce où vous 
vous trouvez. Puis on soustrait 1 
au nombre d'objets transportés. 

MANGER 

1650 — On ne peut manger que 
le saucisson. 
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1660 — Mais il faut le prendre 
avant de pouvoir le manger. 
1670 — Quand vous l'avez 
mangé, cela vous fait un objet de 
moins à transporter, et il n'appa¬ 
raît plus dans la liste des objets 
visibles. En fait, cette opération 
est sans utilité pour le déroule¬ 
ment correct de l'aventure et ne 
sert qu'à vous retarder. 

BOIRE 

1720 — Les seuls compléments 
acceptables après ce verbe sont 
FONTAINE et EAU. 

1740 — Si l'on boit, l'eau de la 
fontaine, cela fait le plus grand 
bien, mais ne vous avance pas à 
grand chose. Vous aurez simple¬ 
ment perdu un peu de votre pré¬ 
cieux temps. 

1760 — Vous transportez un 
bidon plein d'eau ; si vous buvez, 
le bidon devient vide. 

CASSER 

1830 — On ne peut casser que 
le cadenas qui verrouille la plaque 
de tôle. 

1850 — Et uniquement à l'aide 
de la plaque de fer. 

1857 — Une fois que l'opération 
est effectuée, le message "Une 
plaque de tôle fixée par un cade¬ 
nas" est remplacé par "une pla¬ 
que de tôle" et on obtient un 
nouvel accès en direction de 
l'est. 
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TOURNER 

1880 — Seul un anneau peut 
être tourné. 

1900 — Encore faut-il tourner le 
bon... 

1920 — Sinon, une sentinelle 
arrive et vous capture. 

1910 à 1940 — Si vous tournez 
l'anneau dont vous avez trouvé 
le numéro dans l'armoire du geô¬ 
lier, le râtelier bascule et vous 
offre une sortie vers l'ouest et 
vous voilà bien surpris de vous 
retrouver à l'air libre dans une 
petite cour qui n'avait pas retenu 
votre attention lorsque vous y 
étiez passé la première fois. 


CONCLUSION 

Voilà, l'analyse de Colditz est 
maintenant terminée et j'espère 
qu'elle n'aura pas été trop fasti¬ 


NE FAITES 
PAS COMME 
LUI... 

PUISSANCE 4 : il était beau, ce 
jeu publié dans THEORIC n° 20, 
sous la plume de Yves SCHER- 
RER de Valenton dans le 94... 
Hélas, Yves SCHERRER est un 
vilain pompeur qui s'est joué de 
notre confiance en reproduisant 
à la ligne près, avec les mêmes 
noms de variables, un jeu paru 
dans l'Ordinateur Individuel dont 
l'auteur est Jean-Michel PAPIN. 


AVEZ-VOUS 
LA COLLECTION 
COMPLÈTE 
DE THÈORIC ? 


Bon de commande 
page 3 



Le programme 


dieuse. Avant de nous quitter, 
récapitulons les différentes pha¬ 
ses de la conception d'un pro¬ 
gramme d'aventure. 

Le scénario 

Il devra tout d'abord être élaboré 
et testé sur le papier. En général, 
vous n'écrivez pas un programme 
d'aventure pour votre usage per¬ 
sonnel, mais bien pour le distri¬ 
buer au plus grand nombre d'uti¬ 
lisateurs d'Oric. Choisissez donc 
un thème qui présente de l'inté¬ 
rêt pour tout le monde. Ensuite, 
faites en sorte qu'une perspica¬ 
cité moyenne et deux doigts de 
bon sens permettent d'en venir à 
bout. Si la solution est trop 
complexe ou trop vicieuse (c'est 
parfois le cas pour des program¬ 
mes commercialisés), vous lasse¬ 
rez les gens. 


On ne se mettra au clavier que 
lorsque le scénario aura été bou¬ 
clé et entièrement testé. La pro¬ 
grammation devra être rationnelle 
et bien structurée. N'oubliez 
jamais qu’un programme d'aven¬ 
ture est très gourmand en 
mémoire et que 48 kilo-octets 
sont vite remplis. Enfin, si vous 
envisagez d'y inclure du gra¬ 
phisme, essayez également d'uti¬ 
liser des routines compactes. 
Vous en savez assez maintenant 
pour faire mieux que COLDITZ et 
la rédaction de THEORIC n'attend 
plus que vos créations originales 
pour les publier et vous faire 
connaître. 

A bientôt... 


A SUIVRE... 


Vous avez été plusieurs à nous 
téléphoner pour nous signaler la 
chose. Le plus outré était, bien 
entendu, l'auteur, Jean-Michel 
PAPIN. Lui, vous le connaissez, 
il nous avait envoyé une fonction 
PAINT, publiée dans THEORIC. Il 
était normal que THEORIC rende 
à César, etc. Par la même occa¬ 
sion, nous avons reproché à J.- 
M. PAPIN d'avoir péché par omis¬ 
sion. En effet, s'il est bien l'au : 
teur de la fonction PAINT en lan¬ 
gage machine, l'exemple Basic 
qu'il donnait à la suite n'était pas 
de lui... L'arroseur arrosé ! 
Alors, ne faites pas comme eux : 
nous pouvons vous poursuivre en 
justice et les véritables auteurs 


également. A ce petit jeu, il n'y 
a rien à gagner, sinon la honte... 
Heureusement, il reste encore 
beaucoup d'auteurs honnêtes, et 
THEORIC ne servira pas de sup¬ 
port à ces actes de plagiat ! 

Au fait, en parlant de PUIS¬ 
SANCE 4, l'usurpateur n'a même 
pas corrigé (mais quand on pla¬ 
gie les autres, est-on seulement 
capable de programmer ?) les 
bugs du programme publié aupa¬ 
ravant par notre confrère. 

J.-M. PAPIN nous donne les cor¬ 
rections à effectuer pour que ce 
programme tourne enfin correc¬ 
tement... Profitez-en pour modi¬ 
fier le listing et chasser le nom de 
l'usurpateur ! 


790 X=XM:Y=YM Gfl=Gfl< X ,Y > 0H*=0G* 

792 IFZCX ,Y )=30R0G$="0"THEH793 

794 IFGft=1THEN799 

795 Z=Z< X, Y J+2 ■■ Gfi< X , Y >=0 ■ T=0 : GOSUB1000 

796 IFGflC X,Y)=1THENGfK X- Y >=Gfl X=XR Y=YR■G0T0799 

798 Z(X.Y>=Z<X,Y)+1 GOTO800 

799 Z< X. Y >=Z( X. Y )+l : IFZ< X. Y ><4THENZ=Z( X, Y Hl Gfl< X, Y )=0 ‘ T=0 : GOSUB1000 

800 8<X,Y.ZrX/Y)>=5PRINT PRINT"Je joue en "CHR*<64+X)Y GOSUB5500 
810 0G$=0H* IF0H*="0"THEHZ=Z<X,Y> : GOTO2500 

820 WFIIT100 ■ GOTO300 


2025 I F0G*="0" fiNDGflt X, Y )= 1THEN2090 

2030 I FH< S )=. 1 THENGfl( X, Y >= 1 CG*= " 0 " = YM»Y = XM=X 

2040 T=T+N<S) 

2050 IFT-INK T)>=.02flNDCG*<>“0"THENYR=YM sXR=XM■XM=X■YM=Y CG*="BIENTOT" 
2070 IFCGS="H M «NOT>MTHENM=T = YP=YM : XR=XM ■ YM=Y : XM=X 
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UN UTILITAIRE TRES PRATIQUE POUR LE SEDORIC 

m 

e programme SEDUTIL est un utilitaire, permettant de mettre 
profit tout ce qui a été vu dans le précédent numéro. Il est 
^compatible ORIC-1/ORIC ATMOS. 

Il vous faudra rentrer le (long) programme Basic, ainsi que le (court) 
programme machine, appelé BITMAP, dont vous trouverez le listing 
source ainsi qu'un chargeur Basic. Vous aurez également à utiliser 
les programmes machine publiés le mois dernier : UTSED et DUMP. 


Tout ceci étant considéré 
comme fait, nous allons pouvoir 
commencer ensemble un rapide 
tour du propriétaire. 

RECHERCHE 

DES DESCRIPTEURS 

Rappelons qu'un descripteur est 
un secteur particulier, ou se trou¬ 
vent les renseignements relatifs 
à un fichier. 

En validant cette option, vous 
verrez apparaître les renseigne¬ 
ments suivants pour chaque des¬ 
cripteur trouvé : 

Piste et secteur du descripteur. 
Le type de fichier qu'il représente 
(Basic, Window, etc.). 
L'adresse de début, de fin et, 
éventuellement, de travail. Le 
programme va parcourir toute la 
disquette, et affichera ces infor¬ 
mations au fur et à mesure de 
leur découverte. Dès que l'écran 
sera rempli, vous aurez la possi¬ 
bilité de l'imprimer (cette opéra¬ 
tion étant relativement longue, 
l'utilisateur aura intérêt à impri¬ 
mer les résultats, car il lui seront 
certainement utiles par la suite). 


MODIFICATION 
D'UN SECTEUR 

Cette possibilité est très intéres¬ 
sante puisqu'elle vous permet de 
lire et d'écrire sur un secteur 
(très utile pour des opérations de 
sauvetage d'une disquette). 
Vous préciserez d'abord la piste 
et le secteur choisi (en Hexa), 
puis celui-ci apparaîtra sur 
l'écran. Vous verrez alors un cur¬ 
seur tout en haut de la zone 
ASCII. Vous pourrez déplacer ce 
curseur dans toutes les direc¬ 
tions pour arriver à l'endroit 
choisi. De là, servez-vous du cla¬ 
vier pour écrire vos modifica¬ 
tions. Rassurez-vous, votre texte 
ne sera pas reporté aussitôt sur 
le disque, vous pouvez encore le 
modifier, ou même ne pas l'en¬ 
registrer du tout. Si vous désirez 
valider votre modification, vous 
taperez alors ESC, qui fera appa¬ 
raître : 

Q,E,C,H,I,S,P,F ? 

puis tapez maintenant E comme 
Enregistrement. 

Passons en revue les 7 autres 


options - : 

• Q : Quitter permet d'aller exa¬ 
miner un autre secteur. 

• H : Hexa, permet de passer 
dans la zone de gauche du 
Dump, c'est-à-dire dans la zone 
hexa. Il est dans certains cas 
nécessaire de modifier des 
octets, et non pas du texte. 

• C : Caractères, fait l'opération 
inverse de la précédente, c'est- 
à-dire replace le curseur en zone 
texte. 

• I : Impression du secteur sur 
imprimante. 

• S : Suivant. Il est ainsi possi¬ 
ble de passer au secteur suivant, 
sans utiliser l'option Quitter. 

• P : Précédent. Permet de reve¬ 
nir au secteur précédent. 

• F : Fin, revient au menu. 

MAP D'UNE DISQUETTE 

Vous pouvez ici visualiser d'un 
seul coup d'œil, l'état d'une dis¬ 
quette. Une grille piste/secteur 
va s'afficher, et va se remplir de 
la façon suivante : 

Les secteurs libres seront repré¬ 
sentés par des points. Les sec¬ 
teurs occupés par le premier 
fichier seront matérialisés par la 
lettre A, ceux du second fichier, 
par la lettre B, etc. 

Quand le tableau sera entière¬ 
ment rempli, il suffira d'appuyer 
sur A ou B, pour savoir le nom 
du fichier qu'il représente. 

Une pression sur ESC vous fera 
revenir au menu. 

TRI DE LA DIRECTORY 

Cette dernière possibilité est 
semblable à celle proposée avec 
la disquette Master du SEDORIC 
sous le nom de ALPHA. Elle opé¬ 
rera un classement alphabétique 
des noms rangés dans la direc- 
tory. 

Voilà, tout est dit, il ne vous 
reste plus qu'à faire bon usage 
de cet outil. 

L'auteur a, pour sa part, pu ré¬ 
écrire entièrement une directory 
détruite par erreur à l'aide de cet 
utilitaire (tous les renseigne¬ 
ments pour effectuer ce genre 
d'opération ont été donnés dans 
l’article précédent). Mais, vous 
pourrez en faire bien d'autres 
choses... 
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UNE RECOPIE 

DEROGES 
VIDEOTEX!" 

C Frédéric TARAUD 

e programme, sans prétention, est un complément du pro¬ 
gramme UTILITEL déjà décrit. Il sera capable de retrouver une 
page précédemment sauvée sur cassette ou disquette et de 
l'imprimer sur n'importe quelle imprimante. Mais attention, seul le texte 
sera reproduit. Ici, pas de graphisme intégral comme le proposent cer¬ 
tains programmes beaucoup plus sophistiqués. Il s'agit en effet ici, 
comme son nom l'indique, d'un utilitaire, permettant la mise noir sur 
blanc de renseignements tels qu'une adresse, un tarif ou un numéro 
de téléphone. 

PRINCIPE 



Le principe est on ne peut plus 
simple, mais, en contrepartie, 
pèche par sa lenteur (environ 1 à 
2 minutes par page) : la page est 
d'abord décodée et affichée sur 
l'écran de l'ORIC pour être 
ensuite reproduite sur imprimante 


par hard-copy d'écran texte... 
Pourquoi un procédé aussi long ? 
Parce que le codage d'une page 
Vidéotext n'est pas des plus sim¬ 
ples... 

Vous avez sans doute remarqué, 
si vous êtes un assidu des ser¬ 
veurs, qu'une page peut très bien 
apparaître sur votre Minitel en 


commençant par le bas, pour 
ensuite se terminer dans le haut 
de votre écran. Si l'on imprimait 
directement cette page, les lignes 
ne seraient alors pas reproduites 
dans le bon ordre... 

D'autre part, prenons l'exemple 
d'une page dont les trois premiè¬ 
res lignes sont vides. Contraire¬ 
ment à l'ORIC, ces trois lignes 
n'apparaîtront pas sous forme de 
1 20 fois le code espace, c'est-à- 
dire #20. Le serveur, lorsqu'il 
enverra cette page, transmettra 
une séquence qui positionnera 
directement le curseur en ligne 4 
(séquence US). Un programme 
de recopie directe devrait alors 



SUR ORIC - 1/ATMOS/MINITEL 


REALISEZ VOTRE REVE et transformez votre ORIC en micro - serveur avec MS - TEL. 
Ce langage Télématique est désormais disponible dans une nouvelle version En plus 
de ses fonctions Initiales il permet d’imprimer les messages pendant la connection 
et l’utilisation en mixte de la ligne téléphonique. 


Pack télématique 1: MS-TEL + COPYTEL -t- détection d'appel 
Pack télématique 2: MS - ATMOS * JASMITEL 


MS - TEL 
COPYTEL 
MS -ATMOS 
JASMITEL 
EASYDISK 
BD - DISK 
NIBBLE 
CKD 

COPFORM 
BUDGEST 
FL COMPTE 
Cable COPYTEL 
Cable COPYTEL 
CLUB IN 


micro - serveur par minitel avec détection d’appel 

memorisateur . imprimeur de page minitel 

micro - serveur par modem DTL2000 + 

emulateur de minitel sur modem DTL2000/ + 

super utilitaire de travail sur disquette (TDOS) 

super utilitaire de travail sur disquette (SEDORIC) 

gestion et copie des pistes, secteurs et gaps (SEDORIC) 

transfert de cassette vers disquette (TDOS) 

super backup et vérificateur de disquettes (SEDORIC) 

gestion budget famillial avec histogrammes (TDOS) 

gestion de compte bancaire ultra rapide (SEDORIC) 

pour relier ORIC et MINITEL 

pour relier ORIC, MINITEL et imprimante 

donne droit a une réduction de 15 a 30% sur softs IN 


Forfait port LT expédition par la poste 

Forfait port CR expédition en contre remboursement 

Catalogue IN envoi sur simple demande contre 10 F en timbres 


850 F 
650 F 
700 F 
250 F 
500 F 
250 F 
250 F 
250 F 
250 F 
120 F 
120 F 
250 F 
250 F 
50 F 
80 F 
100 F 
15 F 
40 F 
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détecter l'absence de ces trois 
lignes. 

On remarque également la pré¬ 
sence de séquences permettant 
la répétition d'un code lorsque 
celui-ci doit être envoyé plusieurs 
fois à la suite. Exemple : si l'on 
désire faire un soulignage à l'aide 
de six tirets, ceci sera codé # 2D, 
#12, #46 (séquence REP). Ce 
sont toutes ces choses (et encore 
bien d'autres) qui nous obligent 
donc à construire d'abord la page 
en mémoire vive, c'est-à-dire sur 
l'écran. 

Le lecteur curieux pourra en 
apprendre beaucoup en fouinant 
dans des pages enregistrées par 
UTILITEL, à l'aide d'un DUMP... 

LE PROGRAMME 

Ce programme est entièrement 
en Basic, excepté le hard-copy 
dont le choix vous est d'ailleurs 
laissé. L'auteur a, pour sa part, 
utilisé celui paru dans le THEO- 
RIC n° 17 (réalisé par M. 
TRIOUILLIER) qui a pour princi¬ 
paux avantages d'être court, sim¬ 
ple et de se loger en haut de la 
mémoire (ne pas oublier en effet 
que les pages sont gourmandes 
en mémoire...). 

Si vous choisissez un autre pro¬ 
gramme de recopie, changez 
alors l'adresse d'appel en ligne 
750. 

Après avoir chargé un fichier 
page, le programme vous 
demande le numéro de la page à 
imprimer et renseigne ainsi ses 
descipteurs (lignes 200 à 340). 
La ligne 340 contient un POKE 
#30E, #40, qui a pour fonction 
d'inhiber la scrutation du clavier 
pendant l'affichage sur l'écran 
(on gagne du temps comme on 
peut). Il sera donc impossible 
d'arrêter le programme par un 
CTRL-C pendant ce temps. Les 
interruptions sont rétablies ligne 
740 par un POKE #380, # CO. 
Comme il a été dit plus haut, seul 
le texte sera imprimé. Le pro¬ 
gramme devra donc tester et, 
éventuellement filtrer, les codes 
qu'il trouvera en mémoire. Les 
lignes 390 à 520 se chargent de 
tester s'il s'agit d'un code de 
contrôle (de 00 à #1 F). Certaines 
séquences sont alors plus parti¬ 
culièrement traitées : 


— Les séquences ESC (# IB), qui 
positionnent un ou plusieurs attri¬ 
buts, sont filtrées lignes 890 à 
910. De ce fait, les double hau¬ 
teurs, double largeurs et autres 
agréments, seront toujours remis 
en écriture normale. 

— Les séquences US ( # 1 F), per¬ 
mettant la localisation du curseur 
dans l'écran, sont évaluées lignes 
950 à 1080. Les possesseurs 
d'ORIC-1 noteront l'utilisation 
d'un PRINT à en ligne 1030 qu'il 
leur faudra modifier. Le POKE 
#30,0, sur cette même ligne, 
permet de corriger un bug de cer¬ 
tains ATMOS qui concerne la 
gestion de la tabulation horizon¬ 
tale des PRINT (3. Son omission 
entraînerait la coupure du texte 
affiché tous les 40 caractères, et 
ceci quelle que soit la position 
d'écriture. 

— Les séquences de répétition 
déjà abordées plus haut, sont tes¬ 
tées ligne 60 et sont traitées 
lignes 1140 à 1190. 

— Les caractères G2, qui sont, 
pour la plupart, des caractères 
spécifiques au Minitel (tels que 
1/2 ou le point d'interrogation à 
l'envers), sont remplacés par des 
espaces si l'ORIC ne peut les affi¬ 
cher, ou alors leur code est modi¬ 
fié pour correspondre avec l'AS- 
Cll habituel (lignes 1230 à 1280). 

— Les caractères G1 (graphi¬ 
ques) seront systématiquement 
remplacés par des espaces. Une 
variable appelée G1 sera position¬ 
née à 1 lorsque ce mode sera 
activé (code de contrôle #0E) et 
sera mise à 0 en mode texte, ou 
mode GO (code #0F). 

Pour terminer, sachez que cer¬ 
tains caractères du mode texte 
du Minitel lui sont spécifiques et 
n'existent donc pas sur l'ORIC. 
C'est le cas des codes des bar¬ 
rez horizontales et verticales ser¬ 
vant à souligner ou à faire des 
cadres. Ils seront donc remplacés 
par d'autres caractères : c'est le 
rôle des lignes 560 à 610. 

En fin d'impression, un PING se 
fera entendre et vous aurez alors 
la possibilité de réimprimer la 
même page en tapant O (Atten¬ 
tion, ce choix ne sera pas affiché 
à l'écran afin de ne pas le modi¬ 
fier). Si vous ne désirez pas une 
autre impression, tapez N. Vous 
pourrez alors : 


— recopier une autre page dans 
le fichier actuellement en 
mémoire, 

— changer de fichier page, 

— arrêter le programme. 



Ce programme ayant surtout 
comme intérêt une approche un 
peu plus poussée du Vidéotext, 
pourra certainement être amé¬ 
lioré. Il gagnera surtout à être 
entièrement en langage machine. 
Mais ceux qui s'intéressent au 
problème pourront y trouver un 
certain nombre de renseigne¬ 
ments sur la façon dont une page 
est décodée par le Minitel en vu 
de son affichage. 

A titre d'illustration, des possibi¬ 
lités de ce programme, vous trou¬ 
verez une recopie d'une des 
pages figurant sur le serveur que 
propose THEORIC actuellement 
au 99.57.90.37. Cela vous fera 
une excellente raison d'appeler ce 
service afin de comparer la copie 
de l'original... 

THEORIC 


La revue des passionnes de l'ORIC 
Parait, en kiosque vers le 25 du mois. 

Revue indépendante de tout fabricant 
elle propose aux possesseurs d’ORIC un 
lot mensuel de logiciels utilitaires et 
de jeux. 

On y trouve egalement bon nombre de 
trucs et astuces permettant de tirer le 
meilleur parti de l’ordinateur. 

Les nouveaux logiciels et materiels 
y sont analyses en toute impartialité. 


THEORIC le lien entre tous les ORICIENS 


Tapez SUITE 

10 ’ **+*************** 3 * 1 **** 


20 ’ * * 

30 '* Hard-copy Videotext * 

40 ’* * 

50 ’* Frédéric TARAUD * 

60 ’* le 26/03/86 * 

70 ’ * * 


80 ’****.******************* 
90 ’ 

100 ’ 

110 ’ Initialisations 
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120 ’ 

130 CI.S 

140 E=30: DIM T(E) 

150 I.OAD' HCTXT. COM" 

160 POKE #26A, #2A ’40 Colonnes 

170 ’ 

180 ’ Chargement fichier et choix 
190 ' 

200 INPUT'Nom :";N$ 

210 DOKE#2200. #FFFF 
220 CI.ÜAD N$ 

230 IF DEEK(#2200)=#FFFF THEN PRINT"Pas un fichier page.GOTO 200 
240 T(1)=#2200:N=2 
250 T(N)=DEEK(T(N-1)) 

260 IF I)EEK( T( N ) ) =0 THEN EOF=T( N ) : N=N-1 : GOTO 290 

270 IF N + 1=E THEN PRINT’Redimensionner le tableau T. ..": END 

280 N=N+1 : GOTO 250 

290 PRINT"Harci-Copy page 1 a ";N:INPUT P 
300 IF P<1 OR P>N THEN 290 
310 D=T(P)+4 
320 F=DEEK(T(P)) 

330 1=0 : G1=0 

340 CLS:POKE#30E.«40 


350 

y 




360 

y 

Test 

carac:t;ère reçu 

370 

’ l 

-Caractères 

de contrôle 

380 

y 




390 

C=PEEK(D+ I ) 


400 

IF 

C=#04 

THEN 

680 

410 

IF 

C=#0A 

THEN 

670 

420 

IF 

C=#0C 

THEN 

670 

430 

IF 

C=#0E 

THEN 

G1 = 1 : GOTO 680 

440 

IF 

C=#0F 

THEN 

G1=0 : GOTO 680 

450 

IF 

C=#ll 

THEN 

680 

460 

IF 

C=#13 

THEN 

1=1+1:GOTO 680 

470 

IF 

C=#14 

THEN 

680 

480 

IF 

C=#16 

THEN 

1200 

490 

IF 

C=#18 

THEN 

680 

500 

IF 

C=«19 

THEN 

1200 

510 

IF 

C=#1B 

THEN 

890 

520 

IF 

C=«1F 

THEN 

GOSIJB 920: GOTO 390 

530 

y 




540 

’ 2 

Caractères 

spéçiaux 

550 

y 




560 

IF 

C=»60 

THEN 

C=#2D 'Barre hor. 

570 

IF 

C = »5F 

THEN 

C=#2D ’ 

580 

IF 

C=«7E 

THEN 

C=#2D * 

590 

IF 

C = «7B 

THEN 

C=#20 'Barre ver. 

600 

IF 

C=#7C 

THEN 

C=#20 ' 

610 

IF 

C=«7D 

THEN 

C=<»20 ’ 

620 

y 





630 'Affichage (Test G1 et REP) 
640 ’ 

650 IF Gl=l THEN C=#20 

660 IF PEEK(t)+I + l )=#12 THEN 1110 

670 PRINT CHR$(C); 

680 1=1+1 

690 IF D+I=>F THEN 740 
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700 

GOTO 390 


710 

9 


720 

’ Fin affichage écran 


730 

f 


740 

DOKE830E,#C0 'Rétablie les inter. 


750 

CALL8B400 ’Hard-copy 


760 

PING 'Ping fin copie 


770 

REPEAT:GETZ$:UNTIL Z$="0" OR Z$="N" 


780 

IF Z$="0" THEN 750 


790 

CLS:PRINT 


800 

PRINT'Autre page (O/N)" 


810 

REPEAT:GET Z$:UNTIL Z$="0" OR Z$="N" 


820 

IF Z$="0" THEN 240 


830 

PRINT'Autre fichier page (O/N)" 


840 

REPEAT:GET Z$:UNTIL Z$="0" OR Z$="N" 


850 

IF Z$="0" THEN 200 ELSE PRINT CHR$(17):END 


860 

9 


870 

’ Sequence apres ESC 


880 

9 


890 

1 = 1 + 1 :C=PEEK(I)+I) 


900 

IF C = # 3 6 THEN 1 = 1+2 : GOTO 390 


910 

1=1+1:GOTO 390 


920 

; 


930 

’ PRINT à 


940 

f 


950 

G 1=0 


960 

1=1+1:C=PEKK(D+I) 


970 

IF C=#40 THEN 1=1+2:RETURN 


980 

IF C=#30 THEN X=0:Y=PEEK(D+1 +1)-48 : 1 = 1 +1:GOTO 1070 

990 

IF C=#31 THEN X=0:Y=PEEK(D+I + l)-48 + 10:1 = 1 + 1 : 

GOTO 1070 

1000 

IF C=832 THEN X=0: Y=PEEK(I)4 1 + 1 )-48 + 20: 1 = 1 + 1 

: GOTO 1070 

1010 

IF C = #33 THEN X=0:Y=PEEK(D +1 +1)-48+30 : 1 = 1 +1 

: GOTO 1070 

1020 

Y=C-64 


1030 

1 = 1 + 1 :C=PEEK(D+I) 


1040 

X=(C-64)-1 


1050 

IF X<0 OR X>40 THEN RETURN 


1060 

IF Y<0 OR Y>27 THEN RETURN 


1070 

POKE830.0:PRINT à X.Y; 


1080 

1 = 1 + 1 : RETURN 


1090 

9 


1100 

9 


1110 

’ Traitememt REP 


1120 

9 


1130 

9 


1140 

1=1+2:R=PEEK(D+I) 


1150 

REP=R-64 


1160 

FOR X=0 TO REP 


1170 

PRINT CHR$(C); 


1180 

NEXT X 


1190 

1=1+1:GOTO 350 


1200 

9 


1210 

’ Traitement G2 


1220 

9 


1230 

1=1+ ï:C=PEEK(D+I) 


1240 

IF 064 AND C<76 THEN 1 = 1 + 1 : C=PEEK(D+I ) :GOTO 670 

1250 

IF C=#23 THEN C=85F :GOTO 670 


1260 

IF C=826 THEN C=823 :GOTO 670 


1270 

IF C=830 THEN C=86F :GOTO 670 


1280 

C=82E : GOTO 670 ■ 
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Gagnez un 
abonnement à 


Votre revue préférée servie gra¬ 
tuitement à domicile : le rêve, 
non ? 

Il peut rapidement devenir réalité 
si vous participez à l'élaboration 
de THEORIC. La publication d'un 
programme entraînera l'abonne¬ 
ment de son auteur (ou la prolon¬ 


gation de son abonnement) pour 
une durée de trois mois, six mois 
ou un an. Nous contacterons les 
auteurs des meilleurs travaux et 
leur proposerons une participa¬ 
tion plus régulière mais rémuné¬ 
rée. Avis aux amateurs. 



I K+ià 


REVENDEUR AGRÉE ORIC EUREKA 

ouvert du mardi au samedi de9h30à 12 h 15 et de 14h30à 19 h 15 
130, ROUTE DE CORBEIL - 91360 VILLEMOlSSON-SUR-ORGE 
Tél. (1) 69.04.04.50 


I.C.V. A L’AVANT-GARDE DES NOUVEAUTES 


LOGICIELS 

NOUVEAU : T.B.D (5 utilitaires sur disquettes 

Sedovic). 250F 

T.B.D - Transfert K7 vers disquettes 
CAT - Transfert TDOS vers Sedoric 
DTR - Dump mémoire en temps réel 
DD - Test piste défectueuse 
RTP Répare une piste défectueuse 

+ de 70 titres en magasin 

ICV distributeur de la revue THEORIC 



LECTEUR DISQUETTES 

3,5 


Lecteur esclave 3 "t/2 

Double têtes 

Double densité 

Alimentation 220 volts 

Cordon de raccord 

Compatible MICRODISC/JASMIN 2 

1990 F 



PAVÉ NUMÉRIQUE/ 
JOYSTICK 


14 touches (0 à 9), le point, 

DEC, FONCTION, ENTER. 

1 prise joystick 

(fonctionne sur les 4 flèches et la barre 
d'espacement), compatibilité assurée sur 
75% des jeux. 

490 F 


Disquette 3 pouces .... 45,00 F 
Imprimante Brother 1009 

. 1995,00 F 

Option Picots Brother 1009 

. 350,00 F 

Rame papier . 79,00 F 

Bloc Oric 9 volts . 150,00 F 

Jasmin 2 . 2690,00 F 

Câble imprimante .... 160,00F 
Disquette 3,5 pouces .. 25,00 F 


BON DE COMMANDE 

130, ROUTE DE CORBEIL - 91360 VILLEMOlSSON-SUR-ORGE 


NOM : 
PRÉNOM: . 
ADRESSE : . 
Code Postal 

VILLE . . 

TÉL : . 


DÉSIGNATION 


Qte 


P.U 


P. T 


— 30 F pour ochats inférieurs à 
Frais de Port — 50 F pour achats de 500 F à 1000F 

— 70 F pour achats supérieur à 1000 F 

Ci-joint un chèque de F. : 


500 F 


Frais de Port 


TOTAL 


39 


• c; r9 i€ 66 «M Pt fiO auv?i 





















































Thierry LEGAL 


SUPER FAC-SIM 


L l imprimante JASMIN-PRINTER, alias Brother 
“ M-1 009 a de très bonnes caractéristiques graphi- 
I ques. Le programme de recopie publié dans le 
numéro 6 de THEORIC ne les exploitait que très faible¬ 
ment. Voici donc un programme qui répondra sans doute 
aux besoins de la plupart d'entre vous. 


Ce programme a été conçu pour 
être très souple et facile d'emploi, 
sans pour autant négliger ses per¬ 
formances. II vous propose un 
choix complet de recopies dont 
le point de départ est : IHIRES. 

II permet de recopier l'écran 
HIRES en simple format (demi- 
largeur de feuille). II peut sans 
problème être incorporé dans un 
programme Basic. Cette com¬ 
mande peut avantageusement 
être complétée par les options 
suivantes : 

L : double largeur (occupe toute 
la largeur de la feuille). 

H : double hauteur. 

HL : double format (en hauteur et 
largeur). 

On peut de plus obtenir une 
impression en blanc sur fond noir 
grâce à l'option I qui correspond 
à l'Inversion Vidéo. Attention 
toutefois à la durée de vie de 
votre ruban-encreur ! 

Enfin, on va utiliser une caracté¬ 
ristique peu courante de la Bro¬ 
ther : la possibilité de dessiner en 
"double densité”. Les dessins 
ressortent alors considérable¬ 
ment mieux. Cela se traduit en 
pratique par l'option D. 


Le programme est construit de 
manière à ce que l'on puisse 
mixer ces 4 options pour obtenir 
toutes les combinaisons possi¬ 
bles entre IHIRES et IHIRES HLID. 
Cela représente pas moins de 16 
cas. 

En pratique, le programme s'ins¬ 
pire de celui publié dans le 
numéro 6. II ne présente aucune 
difficulté. Pour ceux que cela 
intéresse, son listing-source est 
fourni en annexe. Les ordres uti¬ 
lisés correspondent à : 

ESC K 240 pour IHIRES 
ESC K 480 si l'option L 
ESC L 480 si D 
ESC L 960 si D et L 

— Pour L, on envoie deux fois 
chaque octet-graphique. 

— Pour H, c'est chaque ligne- 
graphique qui est doublée. 

— Pour I, on fait un "OU exclu¬ 
sif" avec $3F = %00111111. 
Afin de rendre ce logiciel vrai¬ 
ment complet, on y a adjoint une 
petite routine de recopie de 
l'écran texte. Sa syntaxe sera 
bien sûr : ITEXT. 

Le programme Basic de charge¬ 
ment de la routine vous permet¬ 
tra de l'implanter à l'endroit de 



votre choix. Cette routine est 
compatible ORIC-1 et ATMOS. 
Elle peut de plus très bien être uti¬ 
lisée avec le programme "BUF- 
FER” en réautorisant les interrup¬ 
tions par POKE AO + # 94, # 2C. 
Si le buffer est assez grand, l'or¬ 
dinateur vous rendra la main au 
bout de 4 secondes environ. Le 
dessin prendra, quant à lui, de 15 
secondes à 2 minutes pour s'exé¬ 
cuter suivant sa complexité et les 
options choisies. 

Vous avez maintenant de quoi 
laisser vos oeuvres graphiques à 
la prospérité ! Alors, profitez-en 
et envoyez-nous vos meilleurs 
chef-d'œuvres. 

10 REH==”======== S ====™====== 

12 REM Recopie d’écran Text 4 Hires = 

14 REMProther M100R & Jasmin-Printer= 
U REM 

18 REM ‘Super Fac Si»’ = 

20 REM 
22 REM 

24 REM Compatible ATMOS et ORIC-1 = 
26 REM 

28 REM ITEXT Recopie écran TEXT = 
30 REM 'MIRES .. .. HIRES = 

32 REM avec 4 options taxables = 
34 REM 

36 REM H double Hauteur = 

38 REM L double Largeur = 

40 REM I Inversion video = 

42 REM et D Double densite = 

44 REM 
46 REM 

48 REM LEGAL Thierry Février 86 = 
50 REM 

52 REM============================== 

54 REM Entrée des Data de ’FAC‘ 

56 REM- 

58 CLS PRINT ‘SUPER FAC SIM* PR INT 
60 INPUT*AD=*;AD DOKE 0,AD HIMEM AD 
62 A0=DEEK(0) PRINT FOR 1=0 TO 44 
64 PRINT 44-1; : AD=A0+8*I S=0 

66 FOR J=0 TO 7 READ A#:A=VAL(•»•♦««> 
68 POKE AD+JiA S=5+A NEXT READ SC 
70 IF S=SC THEN NEXT LG=«167 GOTO 74 
72 PRINT“Erreur ligne‘104+1 ZAP END 
74 PRINT PRINT ‘Contrôles Data 0k.‘ 

76 IF MOK9000 THEN GOSUP 200 
78 PING PRINT PRINT ‘0k.* 

80 PRINT ‘Routine FAC implantée* 

82 F'RINT“Préparer le Magnéto* GET A* 
84 C5AVE ’FAC.LM*,A A0,E AO+LG.AUTO 
86 CALL AO HIRES PRINT *A vous 
88 END 














100 REH- 

101 REH Data de la routine 'FAC SIM’ 

102 REH- 

103 : 

104 DATA AC,F6,02.AD,F5.02,8C»24.#3F8 

105 DATA 90,8D,23,90.fl0,90,A9,17,#3C0 

106 DATA BC,F6,02.8O.F5.O2.4O,C9,K31 

107 DATA A2,FO,30 > 09,Al,FO, 06,20,#44E 

108 DATA E8.00.4C.00.04.A0.BB.A9.I33C 

109 DATA A8.84.71.85.70,A2.2?,20,«37D 

110 DATA 4D,91,CA,F0,F8,A0,00,B1,#4E1 

111 DATA 70,09,20.10,02.A9,20,20,#254 

112 DATA 52.91,E6,70,DO,02,E6,71,#462 

113 DATA A5,7O.C9,E0,D0,E4,A5,71,#588 

114 DATA C9.BF,D0.DE,4C,E2,00,A0,#504 

115 DATA 00,A9,FO,84,70,85,78,A9,#442 

116 DATA 48,85,75,84,74,84,78,08,#401 

117 DATA 84,76,D0,OE,E6,75,O6,76,#3AF 

118 DATA 06,78,26,7C,20,E6,7B,20,#2D9 

119 DATA 06,74,20,E2,00,FO, 13,09,#408 

119 : 

120 DATA 40,FO,EP-,09,48,FO,EE,09,#5DF 

121 DATA 44,FO,El,09,49,FO,E9,40,#540 

122 DATA 70,DO,A9,40,8D,0E,03,2O,#2E7 

123 DATA 4D,91,AO,9F,A9,FF,84,73-#480 

124 DATA 85,72,AO,00,20,00,90,CO,#303 

125 DATA AO,FO,F9,18,A5,72,69,40,#461 

126 DATA 85,72,A5,73,69,01,85,73,#371 

127 DATA 09.BF,DO,E6,ft9,00,80,OE,#542 

128 DATA 03,20,50,91,A9,32,20,52,#251 

129 DATA 91,40,40,91,20,50,91,A5,#361 

130 DATA 75,20,52,91,05,78.20,52,#30A 

131 DATA 91,A5,70,20,52,91,84,7F,#388 

132 DATA A9iFO.85,7A,06,73,A5,72,#408 

133 DATA 86,71,85,70,E6,70,DO,02,#414 

134 DATA E6,71,A9,40-85,7D,46,70,#405 

135 DATA FO,F2,A4,7F,A5,78,85,79,#520 

135 : 

136 DATA 81,70,10,02,49,8F,09,20,#324 

137 DATA 18,30,05,25,70,FO,01,38,#218 

138 DATA 26,7E,06,79,10.EA,98,18,#38D 

139 DATA 69,28,A8,90.02,E6,71,A6,#308 

140 DATA 78,FO,04,09,AO,FO,06,09,#494 

141 DATA 40,DO,01,06,71,A5,76,85,#488 

142 DATA 77,A5.7E,45,74,20.52,91,#356 

143 DATA 06,77,DO,F5,06,7A,DO,86,#508 

144 DATA 20,50.91,A9,41,20,52.91,#2EE 

145 DATA A9,08,20,52,91,A9,OA,20,#293 

146 DATA A9,18,86,80,84,81,AE,00,H37D 

147 DATA FO,DO,05,20,78,F5,FO,03,#448 

148 DATA 20,3E,02,A6,80,A4,81,60,#308 

149 : 

200 REH- 

202 REH Changement d'implantation 

204 REH- : - 

206 : 

208 REFEAT READ N,8 FOR 1=1 TO N 
210 READ A« DOKE AO+VALCIf+ft») ,A0*8 
212 NEXT UNTIL B=#152 
214 : 

216 DOKE 0,A0+#17 FOKE ftO+#D,FEEK(1) 
218 FOKE A0+#F,PEEK<0) RETURN 
220 : 

222 DATA 1,#24,7,1,#23,A,1,#00,A5 
224 DATA 3,#150.02,CD,141,3,#14D,30 
226 DATA 98,CA,8,#152,40,07,02,07,DO 
228 DATA 136,146,148 
230 : 

300 REH-Bip-Bip- 


Supper 

FAC-SIM pour 

Jasm i 

n-Printer al 

ias Brother M-l 



150 

STA ZLGR 

292 

LDX ZM2+1 

10 

REM- 

152 

LM *'8 

294 

LM ZH2 

12 

REM SUPER FAC SIM 

154 

STA ZCOD 

296 

STX ZM1+1 

14 

REM BROTHER N1889 

156 

STY ZIW 

298 

STA ZM1 

16 

REM LT 1 28/82/86 

158 

STY ZH 

388 L1 

INC ZM1 

18 

REM- 

168 

INY 

302 

BNE »*2 

28 

ORG *9W0 

162 

STY ZL 

384 

INC ZH1+1 

22 ZM1 

EQU *78 

164 

BIC OPTION 

306 

LM #*40 

24 ZK2 

EQU *72 

166 

REM- 

388 

STA ZBIT 

26 ZINV 

EQU *74 

168 ’D 

INC ZCOD 

310 

REM - 

28 ZCOD 

EQU *75 

170 !L 

ASL ZL 

312 L00P2 

LSR ZBIT 

38 ZL 

EQU *76 

172 

ASL ZL6R 

314 

BEQ L1 

32 ZL1 

EQU *77 

174 

ROL ZLGfi+1 

316 

LDY ZY 

34 ZH 

EQU *78 

176 

HEX 2C 

318 L2 

LM ZH 

36 ZH1 

EQU «79 

178 !H 

INC ZH 

328 

STA ZH1 

38 ZX 

EQU *7A 

188 

E€X 2C 

322 L00P3 

LM (ZMl).Y 

48 ZLGR 

EQU *7B 

182 !I 

DEC ZINV 

324 

BPL *+2 

42 ZBIT 

EQU *7D 

184 OPTION JSR *08E2 

326 

EOR «BF 

44 ZBYTE 

EQU *7E 

186 

BEQ EXEC 

328 

CW» «20 

46 ZY 

EQU *7F 

188 

CW» #’L 

330 

CLC 

48 zhx 

EQU «88 

190 

BEQ IL 

332 

BMI L3 

58 ZMY 

EQU (81 

192 

CMP #'H 

334 

AND ZBIT 

52 TEXT 

EQU «Al 

194 

BEQ !H 

336 

BEQ *+l 

54 H IRES 

EQU *A2 

196 

CMP #’D 

338 

SEC 

56 

REM- 

198 

BEQ 'D 

340 L3 

ROL ZBYTE 

58 AUTO 

LDY *2F6 

280 

CMP #’I 

342 

DEC ZH1 

68 

LDA *2F5 

282 

BEQ 'I 

344 

BPL L00P3 

62 

STY Cad !+2 

284 

JW» *D870 

346 

TYA 

64 

STA Cad!*1 

286 

REM- 

348 

CLC 

66 

LDY «DEBUT-H 

288 EXEC 

LM #*40 

358 

ADC #40 

68 

LDA IDEBUT-L 

218 

STA *38E 

352 

TAY 

78 

STY *2F6 

212 

JSR LF 

354 

BCC »+2 

72 

STA *2F5 

214 

LDY #*9F 

356 

INC Zfll+1 

74 

RTS 

216 

LM #*FF 

358 

LDX ZH 

76 

REM- 

218 

STY ZM2+1 

368 

BEQ L4 

78 DEBUT 

CMP «AIRES 

220 

STA ZM2 

362 

CMP «168 

88 

BEQ HCOPY 

222 

REM- 

364 

BEQ L5 

82 

CMP «TEXT 

224 LOOP0 

LDY #08 

366 L4 

CMP #64 

84 

BEQ COPY 

226 L0 

JSR LINE8 

368 

BNE L2 

86 

J SR «00E8 

228 

CPY #168 

378 

REM- 

88 Ccd! 

JMP *0488 

230 

BEQ L0 

372 

DEC ZM1+1 

90 

REM- 

232 

CLC 

374 L5 

LM ZL 

92 COPY 

LDY **B8 

234 

LM ZM2 

376 

STA ZL1 

94 

LDA «*A8 

236 

ADC #64 

378 OUT 

LM ZBYTE 

96 

STY ZM1+1 

238 

STA ZM2 

388 

EOR ZINV 

98 

STA ZM1 

240 

LM ZM2+1 

382 

JSR CARAC 

188 

REM- 

242 

ADC #1 

384 

DEC ZL1 

182 Cl 

LDX #41 

244 

STA ZM2+1 

386 

BNE OUT 

184 

JSR LF 

246 

CMP #*BF 

388 

DEC ZX 

186 LOOP 

DEX 

248 

B»C L00P8 

398 

BNE L00P2 

188 

BEQ Cl 

250 

REM - 

392 

REM- 

118 

LDY #08 

252 FIN 

LM #*C0 

394 

JSR ESC 

112 

LDA (ZMl).Y 

254 

STA *30E 

396 

LM (’A 

114 

CMP #*20 

256 

JSR ESC 

398 

JSR CARAC 

116 

BPL **2 

258 

LM #’2 

400 

LM #*88 

118 

LDA #*20 

268 

JSR CARAC 

402 

JSR CAfiAC 

128 

JSR CAfiAC 

262 

JMP LF 

404 LF 

LM «0A 

122 

INC ZM1 

264 

REM- 

406 

HEX 2C 

124 

8NE **2 

266 

REM SP TRACE 8 

488 ESC 

LM «IB 

126 

INC ZM1+1 

268 

REH LIGNES GRAPH 

418 CARAC 

STX ZMX 

128 

LM ZM1 

270 LI*8 

JSR ESC 

412 

STY ZMY 

138 

CW» #*£0 

272 

LM ZCOD 

414 

LDX «F008 

132 

Bit LOOP 

274 

JSR CARAC 

416 

BNE *+5 

134 

LM ZMH1 

276 

LM ZLGR 

418 

JSR »F57B 

136 

CfP «*BF 

278 

JSR CAfiAC 

428 

BEQ *+3 

138 

BNE LOOP 

288 

LM ZLGR+1 

422 

JSR *823E 

148 

JW» LF 

282 

JSR CAfiAC 

424 

LDX ZMX 

142 

REM- 

284 

REM- 

426 

LDY ZMY 

144 HCOPY 

LDY 1*88 

286 

STY ZY 

428 

RTS 

146 

LM #*F8 

288 

LM #248 

430 

REM- 

148 

STY ZL«M 

298 

STA ZX 

ok. 
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BUFFER SOFT 


Thierry LEGAL 


/ I est parfois pénible de voir le temps que l'on peut 
perdre lorsque l'on utilise une imprimante. En 
effet, l'ORIC et l'imprimante ne fonctionnent 
jamais simultanément. Lorsque l'ordinateur envoie un 
caractère, il attend que l'imprimante l'ait lu, et qu'elle 
soit à nouveau disponible pour reprendre son pro¬ 
gramme. Vu que l'imprimante est un périphérique très 
lent, la sortie d'un listing (par exemple) interdit tout 
autre travail pendant un temps parfois assez long. 



C'est pour remédier à cela 
qu'existent les ''Buffers''. Ce 
sont généralement des mémoires 
annexes assez importantes. L'or¬ 
dinateur y envoie (à un rythme 
très élevé) les données à impri¬ 
mer et, le "Buffer" les restitue 
ensuite à l'imprimante au rythme 
de cette dernière. L'ordinateur ne 
se préoccupe alors plus d'elle et 
peut continuer à travailler (calcu¬ 
ler) pendant ce temps. 

La solution proposée ici consiste 
à simuler, par logiciel, le fonction¬ 
nement de ces buffers. On 
obtiendra ainsi un "Buffer Soft". 
On a choisi ici la zone $8000 à 
$8FFF pour l'implanter en RAM. 
La partie logiciel sera dans la pre¬ 
mière page, et les pages $81 à 
$8F seront le buffer proprement 
dit. La zone $9000-$98FF reste 
alors disponible et protégée pour 
vos propres routines. Toutes ces 
adresses seront bien sûr modifia¬ 
bles selon vos besoins et néces¬ 
sités. 

Cette mémoire tampon se com¬ 
portera comme une pile du type 
FIFO (First In - First Out), c'est- 
à-dire : premier entré - premier 
sorti. On fera alors en sorte que 
les différents pointeurs revien¬ 
nent en bas de zone lorsqu'ils 
atteindront le sommet. Il faudra 
aussi faire très attention lorsque 
le buffer sera plein. Dans ce cas, 
il nous faudra attendre qu'un 


caractère ait été envoyé à l'impri¬ 
mante (et donc sorti du buffer) 
pour pouvoir en introduire un 
nouveau. Voyons maintenant 
d'un peu plus près les systèmes 
d'entrée et de sortie du buffer. 

ENTREE BUFFER 

La mémoire tampon est alimen¬ 
tée en détournant la "vectorisa¬ 
tion” de l'imprimante. En effet, 
lorsque l'ATMOS affiche un 
caractère (routine en $CCD9 
dans la ROM), il teste où il doit 
l'envoyer. Si c'est sur impri¬ 
mante, il effectue un saut en 
$023E où l'on trouve un JMP 
$F5C1 qui nous branche sur la 
routine d'envoi d'un caractère. 
C'est cette "vectorisation” que 
l'on va détourner. Le fait qu'elle 
n'existe pas sur ORIC-1 explique 
que ce programme soit réservé 
aux ATMOS. Toutefois, les pos¬ 
sesseurs d'ORIC-1 ayant réécrit 
les routines d'affichage ou pos¬ 
sédant des logiciels tels que reco¬ 
pie d'écran Hires pourront l'utili¬ 
ser en modifiant seulement les 
adresses des différents vecteurs. 
Lors de son envoi au buffer, le 
caractère est stocké sur la pile à 
l'aide du pointeur IN. On incré- 
mente ensuite ce dernier. Si 
IN = HAUT, alors on le ramène à 
IN = BAS. On teste ensuite si 
IN = OUT. Si c'est le cas, la 


mémoire tampon est pleine et 
l'on attend l'envoi d'un caractère 
avant de reprendre le cours du 
programme (LM puis Basic). 

ENVOI D'UN CARACTERE 
A L'IMPRIMANTE 
(Rappels peut-être utiles) 

Il suffit de mettre son code ASCII 
sur le port A ($300) puis d'acti¬ 
ver le Strobe pour prévenir l'im¬ 
primante. Le Strobe est directe¬ 
ment relié à la broche 4 du Port 
B ($301 ) et est donc facilement 
accessible. Si tout s'est bien 
passé, l'imprimante nous renvoie 
alors le signal ACK relié à CAI du 
VIA (Acknowledgement = accusé 
de réception) une fois qu'elle a lu 
et stocké la donnée et qu'elle est 
à nouveau prête. La routine stan¬ 
dard d'envoi d'un caractère est 
donc : 

LDA #data lire la donnée à 
envoyer. 

STA $301 et la mettre sur le 
Port A. 

LDA #300 

AND # $EF mettre BP4 à 0 (X 
AND 0 = 0) 

ORA #$10 puis à 1 (X OR 
1 = 1 ) 

STA # 300 pour valider la don¬ 
née. 

Pour tester si l'imprimante est 
prête (signal ACK), il suffit de tes¬ 
ter le bit 1. de IFR (Registre Indi¬ 
cateur d'interruptions). Cela don¬ 
nera une boucle du type : 

WAIT : LDA #$02 
AND $30D 
BEQ WAIT 

Dans la ROM de l'ORIC, cette 
routine est à la suite de la précé¬ 
dente, ce qui implique d'attendre 
que l'imprimante soit prête avant 
de "repartir" au programme. 


42 




SORTIE BUFFER 

On va pour cela utiliser le mode 
interruptionnel. En programmant 
NER (Registre Activateur d'inter¬ 
ruptions), on va faire en sorte que 
l'imprimante provoque une inter¬ 
ruption à chaque fois qu'elle sera 
prête. On a donc détourné la rou¬ 
tine de traitement de l'IRQ, en 
$245. On teste alors IFR pour 
savoir s'il s'agit bien d'une inter¬ 
ruption de l'imprimante (CAI ), et 
non pas d'une interruption due à 
la gestion de clavier. On envoie 
alors le caractères situé ''sous la 
pile" et incrémente le pointeur 
OUT. On valide aussi l'indicateur 
VIDE, le cas échéant, et, après 
avoir mis CAI à 0, on effectue un 
retour d'interruption (RTI). Pour 


plus de détails, se reporter au lis¬ 
ting assembleur détaillé ci-joint. 
Voilà : avec ce programme, l'AT- 
MOS est (presque) capable de 
faire deux choses à la fois ! Tou¬ 
tefois, ne touchez plus aux octets 
0 à 5 sous peine de voir sortir 
deux fois sur l'imprimante ce que 
vous avez demandé (surtout les 
deux premiers octets qui sont 
testés en permanence lors du 
traitement de l'IRQ). 

De plus, si vos possédez un lec¬ 
teur de disquettes, évitez de l'uti¬ 
liser si le tampon n'est pas vide 
et, si nécessaire, faites un CALL 
#8000 (ou nouvelle adresse) 
avant de renvoyer des données 
sur l'imprimante. 

Vous pouvez aussi le faire si, à la 


suite d'une erreur, vous désirez 
stopper la sortie sur imprimante. 
Si vous désirez arrêter complète¬ 
ment le fonctionnement du buf- 
fer, tapez : 

DOKE # 23F, # F5C1 : DOKE 
#245,#EE22 dans cet ordre. 

Le programme Basic vous per¬ 
mettra de charger où vous vou¬ 
drez cette routine avec l'empla¬ 
cement et la taille de buffer que 
vous aurez choisis. Vous n'aurez 
plus par la suite qu'à recharger la 
partie LM à chaque utilisation. 
Sauvez quand même le pro¬ 
gramme Basic avant son premier 
emploi car on ne sait jamais... 
Pensez aussi à effectuer un 
HIMEM suffisant pour protéger et 
la routine et la mémoire tampon. 


0 REM================================ 

42 INPUT'Adresse Sommet du Buffer';A2 

103 DATA 78,A0.80,A9,2F,8C,40,02,#33E 

44 IF ADAO+HBE OR A2(=A0 THEN 48 

104 DATA 8D,3Fi02,AOi80,A?,67,8C.tt38A 

1 REH 

46 PRINT'Recouvrement Routine !* END 

105 DATA.46,02,8D,45,02,fl0,81,A9,#2E6 

2 REM BUFFER SOFT pour One ATHOS 

48 DZ-A1/H10Q FX=A2/#10Ü 

106 DATA 00,84,03,85,02,84,05,85,#21C 

3 REH 

50 POKE A0+H45.DZ POKE A0+H41.FZ 

107 DATA 04,85.00,85,01,AÛ,80,A9,#2D8 

4 REH Programme de Simulation d'une 

52 POKE A0+HP1.DÏ POKE A0+#9D,Fï 

108 DATA 00,84,A7,85,06.58,60,78,H3o6 

5 REH Mémoire Tampon pour Imprimante. 

54 FOKE A0+tt 16, Dï 

109 DATA 86,FB,84,FC,A0,00,91,02,«434 

6 REH 

56 REM- 

110 OPTA A4,03,A6,02,E8,D0,07,C8,H3D6 

7 REH LEGAL Thierry (c) 2/1986 

8 REH 

58 REM Changement d’implantation LM 

111 DATA C0,90,D0,02,A0,81,84,03,H3CA 

60 REH- 

112 DATA 86,02,05,00,D0,02,E6,01,«2E6 

9 REM=============================== 

62 DOKE 0,AO+#2F POKE A0+2.PEEK(1) 

113 DATA 84,00,C4,05,00.08,E4,04,#310 

10 REM Programme de chargement du LM. 

12 REH- : - 

64 POKE A0+4,F'EEK(0) 

114 DATA 00,07.AD,00,03,29.02,F0,«2AF 

66 DOKE 0,A0+#67 FOKE A0+12,FEEK(1) 

115 DATA F9,06,FB.A4,FC,58,60,48,#53A 

14 CLS PRINT 'Buffer Soft' FRI NT 

68 POKE A0+14,PEEK(0) 

116 DATA 05,01,00,0E,AD,00,03.29,#26A 

16 FRINT'Adresse d'implantation de \ 

70 DOKE 0.A0 IF A1<A0 THEN DOKE 0,01 

117 DATA 02,F0,48,AD,01,03,05,00,#290 

18 INPUT'la routine : ';A0 DOKE 0,AO 

72 POKE A0+N28.PEEK(0) PRINT 

118 DATA F0,41,80,48,98,48,A0,00,#383 

20 HIMEM AO A0=DEEK<0) FOR 1=0 TO 23 

74 POKE A0+H26,PEEKU> PRINT 

118 : 

22 PRINT 23-1; : AD=A0+8*I . S=0 

76 REM- 

119 DATA B1,04,8D,01,03,AD,00.03,#1F6 

24 FOR J=0 TO 7;READ Aï:A=UAL('B'+A») 

78 PRINT 'Routine BUFFER implantée' 

120 DATA 29,EF,8D,00,03,09,10,8D,#24E 

26 POKE AD+J.A S=S+A :NEXT :READ SC 

80 PRINT 'Préparez le Maoneto“:GET A» 

121 DATA 00,03,84,01,A4,05,A6,04,H1DB 

28 IF S=SC THEN NEXT PING GOTO 32 

82 CSAVE 'BUFFER.LM',AA0.EA0+HBF,AUTO 

122 DATA E8,D0,07,C8.C0,90,D0,02,H4A9 

30 F'RINT'Erreur Ligne'103+I ZAP END 

84 CALL AO CLEAR : LFRINT 'BUFFER ON' 

123 DATA AO,81.34,05,86,04,C4,03,H2FB 

32 PRINT 'Contrôle Data Ok.' PRINT 

86 PRINT PRINT '0k.' ZAP END 

124 DATA D0,08,E4,02,DO,04,A9,00,#33B 

34 REM- 

88 

125 DATA 85,00.A9,82,8D,0E,03,68,#2E6 

36 REH Définition Position du Buffer 

100 REM===—■========—“-====■■= 

126 DATA A8,68,AA,68,4C.22.EE,00,#37E 

38 REH- 

40 INF'UT"Adresse Début du Buffer \A1 

101 REM Data de la routine "Buffer' 

127 : 
onn fi'FH 

lût r.trr— ------ 



BUFFER Soft 

(Reserve Oric ATHOS) 

(c) LEGAL Thierry 86 

0000 LP 
0000 IRQ 
0000 


EQU »23F 

E8U “245 

REH- 

Adresse du 'vecteur' imprimante 
et du 'vecteur' interruptions. 

0000 

REH 


0000 

8000 INIT 

78 

0RG «8000 

SE1 

Adresse implantation Routine. 

0000 ZVIDE 

E8U 0 

Indicateur état buffer 

8001 

A030 

LOY «DEBUT-H 

Détourner la routine de sortie 

0000 ZF'RET 

E9U 1 

Idem pour l'imprimante 

8003 

A92F 

LOA «0EBUT-L 

sur imprimante en 'DEBUT'. 

0000 ZIN 

EQU 2 

Pointeurs d'entree (IN) 

8005 

804002 

STY LPU 


0000 Z0UT 

E8U 4 

et de Sortie (OUT). 

8008 

803F02 

STA LP 


0000 BAS 

E8U «8100 

Début de la mémoire tampon 

8008 

A080 

LOY «INTER-H 

Heme chose pour la routine de 

0000 HAUT 

EQU «9000 

et fin +1 (cad Fin=K8FFF) 

8000 

A967 

LOA «INTER-L 

traitement des interruptions 
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800F 

8C4602 

STY IR8«1 

avec le prg en 'INTER’. 

8012 

804502 

STS 1RS 


8015 


REM- 


8015 

8081 

LDY HBRS-H 


8017 

IW00 

LD6 H»00 

Initialiser pointeur d'entree 

8019 

8403 

5TY ZINM 

(IN) et pointeur sortie (OUT) 

8018 

8502 

STR ZIN 

sur le ‘bas de la pile'. 

8010 

8405 

STY Z0UT+1 


801F 

8504 

STR Z0UT 


8021 

8500 

STR ZV10E 

Hettre les divers indicateurs 

8023 

8501 

STR ZPRET 

a zéro. 

8025 

8080 

LDY N1NIT-H 

Puis placer la zone ‘chaînes de 

8027 

6900 

LD8 NINIT-L 

caractères’ sous la routine LH 

8028 

8586 

STA 686 

pour la protéger. 

8020 

58 

CLI 


802E 

802F 

60 

RTS 



REM ——- 


802F DEBUT 

78 

SEl 

Interdire les interruptions. 

8030 

86FB 

STX »FB 


8032 

84FC 

STY »FC 

Sauver les registres X et Y 

8034 

6000 

LDY 60 


8036 

9102 

STR (ZIN).Y 

Hettre la donnée sur le buffer 

8038 

6403 

LDY Z1N*1 


8038 

6602 

LDX ZIN 

lncretenter le pointeur IN 

8030 

E8 

INX 


8030 

D007 

BNE 01 

Le cooparer a HAUT 

803F 

CB 

INY 

S'il atteind le sonnet. 

8040 

0090 

CPY RHRUT-H 

le renettre au BAS de la pile 

8042 

0002 

BNE 01 


8044 

A081 

LDY NBflS-H 


8046 DI 

8403 

STY ZINM 


8048 

8048 

8048 

8602 

STX ZIN 


8500 

LOS ZVIDE 

prévenir l'inpruante du’elle 

8040 

0002 

BNE **2 

se tienne prete a la recevoir 

804E 

E601 

INC ZFRET 

lors de la prochaine interrup. 

8050 

8400 

STY ZVIDE 


8052 


REH- 


8052 

C405 

CPY ZOUT+1 

Tester si IN = OUT 

8054 

DOOB 

BNE-02 


8056 

E404 

CPX ZOUT 

Si oui la pile est pleine. 

6058 

0007 

BNE 02 


6058 HfSIT 

600003 

LOS »0300 

On attend alors qu’un caract. 

8050 

2902 

RHO H»02 

ait ete envoyé pour pouvoir er. 

805F 

F0F9 

BEQ WflIT 

accepter un nouveau. 

8061 02 

66FB 

LDX 4FB 


8063 

64FC 

LDY »FC 

Restituer X et Y 

8065 

58 

CLI 

Reautoriser les interruptions 

8066 

8067 

60 

RTS 

et revenir au prooranne. 


REM- 


8067 INTER 

48 

PHA 

Sauver B 

6068 

6501 

LDA ZPRET 

Est le premer caractère ? 

8068 

D00E 

BNE ENVOI 

Oui l’envoyer a l’inpruante. 

8060 

600003 

LCR 9030D 


806F 

2902 

AND 11X02 

CAI passe a 1 7 

8071 

F048 

BES FIN 

Non: gestion du clavier. 

8073 

600103 

LOR 60301 

Hettre C61 a 0 

8076 

8500 

LD8 ZVIDE 

Buffer vide 7 

8078 

F041 

BES FIN 

Oui- retour d'interruption. 

8078 


REH- 


8078 ENVOI 

86 

TXR 

Non envoyer le caractère situe 

8078 

48 

PHR 

sous la pile, a l'inprinante. 

807C 

98 

TYR 


807D 

48 

PHA 


807E 

6000 

LDY HOO 

Lire cette donnée a partir du 

8080 

8104 

LDA (ZOUT).Y 

pointeur de sortie : OUT 

8082 


REH- 


8082 

800103 

STR 90301 

Procedure d’envoi de la 

8085 

600003 

LDA 90300 

donr.ee a l'inprinante. 

8068 

2’EF 

8N0 tt»EF 

CRI a 0. 

8088 

800003 

STR 40300 



803D 


0910 

CRR R910 

puis a 1 pour validation. 

B08F 


600003 

ST8 90300 


8092 



REH- 


8092 


8401 

STY ZPRET 

Signaler inprinante occupée. 

8094 


8405 

LDY ZOUTxl 


8096 


8604 

LDX ZOUT 


8098 


E8 

INX 

Increnenter pointeur OUT 

8099 


0007 

BNE El 


8098 


C8 

INY 


B09C 


0090 

CPY NHRUT-H 

Si OUT = H6UT , 

809E 


0002 

BNE El 

alors OUT s BRS. 

8080 


8081 

LOY HBRS-H 


8082 

El 

8405 

STY ZCUT+l 


8084 


8604 

STX ZOUT 

Conparer IN et OUT. 

8086 


C403 

CPY ZIN+1 


80A8 


0008 

BNE E2 

Si OUT = IN . 

8088 


E402 

CPX ZIN 

alors la pile est vide 

80RC 


0004 

BNE E2 

et on positionne l’indicateur 

BORE 


6900 

LDA H00 

d’etat du buffer a 0. 

80P.0 


8500 

STR ZVIDE 


80B2 

E2 

8982 

LDA N»82 


8GB4 


800E03 

STA 4030E 

autoriser les interruptions 

80B7 


68 

PL6 

dues a CRI. 

80B8 


88 

T6Y 


8089 


68 

PL8 


60BR 


AA 

TAX 

et sortir de la routine de 

80EB FIN 

68 

PL R 

gestion de l’interruption. 

BOBC 


4C22EE 

JHP 4EE22 


80BF 





ok. 


Buffer Soft 

' pour 8TH0S 

(c) LEGAL Th 86 



LES DISQUETTES DE 

thévric 



>••••••• 

• • •••••• 

• • ••••••• 

• • • • • 
•.•••• • • • • 

• •••••••• 

• • • • • • • • • # 

• •••••••« 

• •••••• m mm 

• ••••• 9 mm 

••• • ••••• 

•v.w.v.w. 

•Xvvv***'*'* 

• • • • • •••••• 

•»>»»»:•:•: 
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EUROP'ORIC : la capitale des 
Pays-Bas n'est pas Amsterdam 
mais La Haye. 

ORICTEL : ligne 3040 mettre 
< > # A2 au lieu de = # A2. 

Le listing du programme "Les 
trois tours de Hanoï", illustrant 
l'article de Wolfram LUTHER 
"Eléments de programmation en 
Basic" (THEORIC n° 16, page 


LES CLUBS 

Le groupe ORIC de MICROFER 
RENNES ouvre ses portes à tous 
les lecteurs de THEORIC. 

Le club propose plusieurs activi¬ 
tés : 

— Initiation au Basic et au lan¬ 
gage machine, 

— travail sur interfaces (hard), 

— accès à la logithèque et à la 
bibliothèque du club. 

Reprise des activités en septem¬ 
bre. 

Renseignez-vous dès maintenant 
au 99.57.23.47. Le meilleur 
accueil vous est réservé. 


22) a malencontreusement été 
amputé de quelques lignes... 
Voici donc le début de ce pro¬ 
gramme. 


théorie 



Le Centre de Formation Continue 
de l'Université Paris-Nord ouvre 
un stage en Informatique Educa- 
tion/Animation pour former et 
perfectionner des spécialistes 
capables d'animer, de former, 
d'encadrer et de concevoir des 
projets pour vos ateliers micro- 
informatiques. 

Ce stage s'adresse à : 

— des salariés d'entreprise, asso¬ 
ciations, administrations. Il peut 
être suivi en congé individuel de 
formation ou en plan de forma¬ 
tion ; 

— des demandeurs d'emploi. 
Renseignements : I.U.T. Villeta- 
neuse, tél.: 48.21.61.70 poste 
48.44.48.42. 


1 REM Le? trois tours de Hanoi - Jeu 

là INPUT" Nombre de disques N= (N< = lü)"•N 

1 e . N1=N IF NOINKN) OR N< 1 OP N>10 THEN PING : GOTO 10 

20 NT=0 T0=1 : TI=2 ; TR=3 REM Tours d'ondi ne, intermediaire, recePtnce 

2 e . GOSUB 1000 IF FlWS="J" THEN 3000 EL SE GOSUB 2310 

30 GOSUB 100 ! REM Debu t H19orithme 

35 CL S 


VISEZ JUSTE ! 


LM + 


Le compilateur qui permet l'exécution 
à la vitesse du langage machine 
de vos meilleurs programmes Basic. 


Edit-Plus 

L'éditeur pleine 
page et le 
Basic français. 

Idéal pour 
l'apprentissage et 
l'enseignement 
du Basic 

75 F 


Le manuel de référence 
de l’Oric-Atmos. 

André Chénlère 

Le livre d'un spécialiste pour les non initiés 
TOME 1 (reédition) 138 F 

TOME 2 Travaux pratiques 120 F 


95 F 


AS DES AS 


L'assembleur et le 
désassembleur 
indispensables 
pour programmer 
efficacement 
en langage machine 


ORISCRIBE 


150 


75 F 


Le traitement de texte adaptable à toute imprimante. 

Déplacement, insertion, suppression, visualisation en 60 colonnes, tout devient possible 


Les prix sonl donnés TTC 

Ils sont indicatifs 

et peuvent être modifiés sans préavis 

Qte 

DESIGNATION DES PRODUITS 

PRIX 

UNfTAIRE 

PRIX TOTAL 

Nom : 

Prénom : 

Adresse : 

C.P. et Ville: 

Téléphone: 
date : 
signature : 








+ 




+ 



SOUS TOTAL 


□ 

Règlement contre-remboursement (France Métropolitaine seulement) ♦ X F 

+ 

Participation aux Irais do port et emballage : 10 % du sous total avec un maximum de 40F 

+ 

Colis de plus de 5 kg expédiés par transporteur en port dû 

TOTAL 



BON DE 
COMMANDE 
A : 

il 


B 


ISOSOFT 

UP 22 
Mûrs-Erigné 
49130 

Les Ponts-de-Cé 
TEL 41.57.77.11 
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Nom . Prénom. 

Adresse .Code Postal .Ville 


Bon de commande et règlement à envoyer à : Editions SORACOM - La Haie de Pan - 35170 BRUZ 


PROTEGEZ 
VOS REVUES! 


CPC Revue standard Amstrad Schneider 

dossier classeur jean, logo et titre blanc 
Prix TTC port inclus : 74 F 
Abonnés : SI F 





THEORIC, Revue des utilisateurs d'ORIC 

dossier classeur gris, logo titra rouge 
Prix TTC port inclus : 80 F 
Abonnés : 59 F 


MEGAHERTZ Magazine 

dossier classeur noir, logo et titre doré 
Prix TTC port inclus : 78 F 
Abonnés : 55 F 


BON DE COMMANDE 

Nom .Prénom . 

Adresse . 




do c°’ 




do 


£di'> on * 

A ” el '"° de con^ï 


\ c 




bon 


,nde 



CLASSEURS 

PRIX 

NBRE 

MEGAHERTZ 

Abonnés 

55,00 



Non Abonnés 

78,00 


CPC 

Abonnés 

51,00 



Non Abonnés 

74,00 


Théorie 

Abonnés 

59,00 


A te ,o^n" 00 ‘\_ 

Non Abonnés 

80,00 



Total . 




+ P0RT 10 X à la commande 
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COMMUNIQUE 


La société TRAN annonce une 
refonte complète des logiciels de 
traitement de texte et de fichiers. 
Ces nouvelles versions ne fonc¬ 
tionnent que sur ATMOS à cause 
de la touche FONCTION, et s'ap¬ 
pellent dorénavant JASMIN- 
TEXT et JASMIN-FICH, afin de 
les distinguer des anciennes ver¬ 
sions. Les fichiers constitués 
sous JASMIN MULTI-FICH sont 
valables avec les nouvelles ver¬ 
sions, mais il sera nécessaire de 
se servir d'un programme de con¬ 
version pour les fichiers texte 
d'EASY-TEXT. 

Seul EASY-TEXT restera com¬ 
mercialisé pour ORIC 1. 

Les modifications sont importan¬ 
tes : 

— fenêtres d'aide visuelle qui 
rendent très facile le traitement 
de texte ; 

— liaison entre FICH et TEXT 
pour vous ouvrir les portes du 
mailing automatique profession¬ 
nel. 

JASMIN TEXT 

— le souligné et les lettres expan¬ 
sées apparaissent à l'écran, 

— les fonctions se présentant à 
l'écran sous forme de menus suc¬ 
cessifs et de fenêtre d'aide, sans 
effacer le texte, et facilitent le tra¬ 
vail et l'apprentissage. 

Deux grandes nouveautés : 

— toutes les imprimantes peu¬ 
vent être facilement program¬ 
mées, 

— Liaison avec le nouveau 
JASMIN-FICH : permet ainsi un 
mailing absolument personnalisé, 
mais aussi l'édition de différents 
tableaux ou travaux divers faisant 
appel au fichier JASMIN-FICH. 


JASMIN-FICH 

Cette nouvelle version est com¬ 
patible avec les anciens fichiers. 
Les améliorations sont les suivan¬ 
tes : 

— protection possible contre les 
indiscrétions par mot de passe ; 

— la recherche de fiche est faci¬ 
litée par un module de recherche 
générale qui recherche, par une 
seule commande, dans tout le 
fichier et toutes les rubriques une 
chaîne de caractères quelconque 
composée d'au moins deux 
caractères. La recherche, ultra- 
rapide, est impressionnante, le 
module étant écrit en langage 
machine ; 

— les sommations inter-fiches 
sont sélectives et s'effectuent 
uniquement sur les rubriques 
comportant un ordre de calcul, et 
le scrolling vertical devient effec¬ 
tif ; 

— le tri peut maintenant s'effec¬ 
tuer en tenant compte de la taille 
des chaînes de caractères à trier. 
De ce fait, le tri numérique se réa¬ 
lise correctement ; 

— on peut effectuer des destruc¬ 
tions de groupes de fiches, ce qui 
permet de réaliser rapidement la 
scission de fichiers devenus trop 
importants ; 

— l'édition sur imprimante est 
très facile avec JASMIN-FICH, 
puisqu'il est possible d'éditer 
dans un ordre quelconque les 
diverses rubriques des fiches, et 
par conséquent de réaliser entre 
autres des tableaux à colonnes 
avec les totaux des nombres. La 
fabrication d'étiquettes pour mai¬ 
ling est donc d'un usage cou¬ 
rant ; 

— mailing personnalisé : la liaison 
avec JASMIN-FICH est doréna¬ 
vant disponible et cette fonction 
facilement réalisable, à condition 
de posséder un deuxième lecteur. 
Cette fonction autorise l'édition 
de véritables lettres personnali¬ 
sées, puisqu'en plus des noms et 
adresses de vos correspondants, 


vous pouvez insérer les rubriques 
d'un fichier à une position quel¬ 
conque du texte de la lettre ou du 
document à éditer. 

Les notices sont évidemment 
refondues entièrement, et les 
possesseurs des anciennes ver¬ 
sions peuvent obtenir une nou¬ 
velle version sur une seule dis¬ 
quette (face A JASMIN-TEXT, 
face B JASMIN-FICH), avec les 
nouvelles notices moyennant la 
somme de 400,00 F TTC, frais 
d'envoi en sus, soit un total de 
420,00 F TTC. 

NOUVEAUTES 

LOGOGRAPHIQUE 
Un nouveau LOGO GRAPHIQUE, 
en Basic et entièrement ouvert, 
ce qui permettra à l'amateur de 
l'améliorer et de réaliser toutes 
sortes de travaux personnels. 
PRIX : 210,00 F TTC. 

SCRABBLE 

Prix : 210,00 F TTC. 

ACTION-BOURSE 
Ce logiciel permet la gestion d'un 
portefeuille de 200 valeurs sur 
une période de deux années, 
mais également l'analyse graphi¬ 
que des cours de bourse, com¬ 
prenant l'exploitation de la 
conjoncture et l'identification du 
niveau de risque d'un placement. 
Pour chaque valeur, la tendance 
est déterminée par référence à un 
canal dont le prolongement indi¬ 
que l'orientation. 

L'analyse donne : 

— la pente moyenne, 

— le pourcentage de hausse, 

— le dernier cours enregistré, 

— le cours moyen, 

— le minimum et le maximum, 

— l'estimation du canal. 

On pourra ainsi déterminer les 
zones d'achat et de vente et 
dégager la tendance à long 
terme. 

Vous pouvez calculer et trier les 
variations de cours sur une 
période donnée. 

Le programme est fourni avec un 
fichier de 182 valeurs françaises 
au règlement mensuel français, 
ainsi que 65 valeurs étrangères, 
soit plus de 16 000 cours en 
mémoire ! C'est un logiciel remar- 
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quable dont le prix, fixé à 
590,00 F TTC, est rentabilisé 
immédiatement. 

Très bientôt, un utilitaire graphi¬ 
que permettra la liaison avec 
JASMIN-CALC et autorisera l'édi¬ 
tion sur écran et imprimante des 
valeurs contenues dans les colon¬ 
nes et lignes choisies, sous forme 
d'histogrammes divers : graphes, 
bâtonnets, fromages, etc. 

MATERIEL PROFESSIONNEL 
GESPRO 

Dans la ligne des produits de qua¬ 
lité professionnelle de TR AN, à 
prix TRAN, rappelons la gamme 
d'ordinateurs prêts à fonctionner 
"GESPRO". 

Un GESPRO comprend : 

— l'unité centrale, 

— le clavier professionnel 
AZERTY de type IBM PC amé¬ 
lioré, 

— l'écran 14" couleur ou 
monochrome ambre ou vert, 

— l'imprimante de qualité cour¬ 
rier à impact du type BROTHER 
Ml509 ou Ml409, 180 CPS, 
distributeur de feuille à feuille 
automatique, 


— le logiciel dédié et taillé pour 
chaque profession. 

Sont disponibles actuellement : 
GESPRO-VIDEO pour la gestion 
et l'optimisation des stocks de 
cassettes et des réservations : 
4000 titres standard (5 ex. VHS 
ou 2 ex. V2000), 

2000 clients (abonnés ou non- 
abonnés, au forfait, comité d'en¬ 
treprise), 

200 réservations sur 9 jours. 
GESPRO-LIBERAL et GES-FEUIL 
pour infirmiers, kinésithérapeu- 
thes, ambulanciers, sage- 
femmes, orthophonistes, pédicu¬ 
res, pour la gestion des actes, 
impression des feuilles de soins 
et la tenue comptable des cabi¬ 
nets. 

GESPRO-PI étudié spécialement 
pour le P-l (professionnel indé¬ 
pendant) permet la gestion d'une 
entreprise avec préparation de la 
comptabilité : 

— capacité 3000 articles et 4 
niveaux de prix, 

— 2000 fournisseurs ou clients 
en compte, 

— client de passage, 

— 300 principaux comptes 
comptables, 

— gestion de 10 taux de TVA, 


— édition jusqu'à 1000 factures 
par mois, 

— gestion de stock, 

— gestion de règlements et trai¬ 
tes, 

— situation des comptes de tré¬ 
sorerie et autres. 

* 

GESPRO a été étudié spéciale¬ 
ment pour les contraintes profes¬ 
sionnelles et une utilisation sans 
soucis 24 heures sur 24. 

— Alimentation à découpage de 
sécurités supportant des mini¬ 
coupures de courant, allant 
jusqu'à 300 ms, des surtensions 
de plus de 1 500 volts (orages, 
enseignes lumineuses, etc.), 

— deux lecteurs de disquettes à 
longue durée de vie 3" de 500 
kilo-octets non formatés chacun. 
Un détail qui a de l'importance : 
GESPRO est à base de micropro¬ 
cesseur 6502 et se trouve donc 
compatible avec la plupart des 
logiciels ATMOS. Travaillez et 
amusez-vous en famille ! 
Surtout, ce matériel profession¬ 
nel est à un prix super-compétitif 
de TRAN. 

Pour plus d'information, contac¬ 
ter directement le Service GES¬ 
PRO de TRAN, tél.: 94.21.19.68. 


NOUVEAUX 

CLUBS 

INFORMATIQUE 

Club Informatique de Chabottes 
Mairie 

05260 CHABOTTES 

Association Rouillonne Informa¬ 
tique pour Tous 
Mairie 

10100 ROUILLY SUR SEINE 

Club Informatique pour Tous 
Ecole des Convalescents 
13, rue des Convalescents 
13001 MARSEILLE 

Club Informatique pour Tous La 
Valentine 

Ecole Mixte, La Valentine 
1, av. de la Tiranne 
La Valentine 
13011 MARSEILLE 


Association Informatique 
Beuvillers 

Ecole de Beuvillers 
58, route d'Orbec 
Beuvillers 
14100 LISIEUX 

Atelier Informatique 
Mairie St. Maurice des Lions 
16500 CONFOLENS 

Club Informatique St. Emillionnais 
Mairie 

33330 ST. EMILLION 

Club Micro-Informatique 
Ecole de Marcilitac sur Cele 
46160 CAJARC 

Micro Contact 
51, Grande Rue 
Rogeville 

54380 DIEULOUARD 

Club Informatique Kerfournois 
Cantine municipale 
Kerfourin 
56920 PONTIVY 


Club Informatique Dechynois 
83, rue Francis Leblois 
59287 GUESNAIN 

Informatique pour Tous 
Mairie 

Qgenne Camptort 
64190 NAVARREUX 

Informatique robotique 
4 square Dralis 
Brasses 

73000 CHAMBERY 

Club Informatique 

Mairie de Domessin 

73330 PONT DE BEAUVOISIN 

Société Française des Sciences 
de l'Information et de la Commu¬ 
nication 
54, Bd. Raspail 
75006 PARIS 

Club Informatique Roquebrune 
Syndicat d'initiative 
Rue Jean Accard 
83520 ROQUEBRUNE 
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ALICE 32 



MATRA 

DATASYSTEME 


• Capacité mémoire * 16K RAM ♦ 16 ROM 

• Caractères * lignes = 32 * 16. 25 * 40 et 
25x80 

• Définition graphique s 160 x 125 pts 

• Couleur = 9 

• Son ■ 3 voies x 6 octaves 

• Connecteurs périphériques = lecteur de 
K7. imprimante, interface Joystick. Modem 
téléphonique, logiciels 


Le micro ordinateur couleur le 

moins cher du marché pour s'initier, décou¬ 
vrir et réussir sa formation en micro-informa¬ 
tique Evolutif grâce à ses périphériques et 
bénéficiant de la technologie de pointe de 
Matra data système Microprocesseur 6803 
32 Ko de mémoire Basic intégré, éditeur 
assembleur, gestion écran 80 colonnes Ali¬ 
mentation 220 volts par adaptateur livré, 
branchement sur prise péritélévision, câble 
livré Livré complet avec guide d'utilisation 
BASIC et assembleur 


AFFAIRE SANS PRECEDENT 

STOCK LIMITÉ 


ALICE 90 


ALICE 90 


• Capacité mémoire 40K RAM -f 16K 
ROM 

• Caractères * lignes - 80* 25. 24 * 40 et 
32*16 

• Définition graphique ■ 320 x 250 et 160 
x 125 pts 

• Son = 3 voies x 6 octaves 

• Connecteurs périphériques = lecteur de 
K7. imprimante, interface Joystick. Modem 
téléphonique logiciels 


PRIX UNITAIRES T.T.C. PROMOTION VALABLE JUSQU'A EPUISEMENT DES STOCKS 


Sophistiqué et puissant ALICE 90 

est un véritable système informatique Avec 
son clavier professionnel AZERTY. sa haute 
résolution graphique, il offre 56 Ko de 
mémoire II possède un basic intégré et l'édi¬ 
teur assembleur. Alimentation 220 volts par 
adaptateur livré. Branchement sur prise péri¬ 
télévision. câble livré. Livré complet avec 
guide d'utilisation basic et assembleur 
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MATRA 

DATASYSTEME 


VENTE PAR CORRESPONDANCE : S’ADRESSER A ROUBAIX REGLEMENT A LA COMMANDE : Ajouter 35 00 F pour frais de 
port et emballage. PAS DE CONTRE REMBOURSEMENT 























PETITES ANNONCES 


La plaça réaarvéa aux petite» annonça» a»t 
limitée. En conséquence, celles-ci passent 
dans leur ordra d'arrivée Par contra, las patl- 
tas annonças farfaluss sont systématique- 
ment rejetée» Da même, comme II est peu 
probable qu'il exista des "généraux dona¬ 
teurs" dp matériels ou de logiciels, les peti¬ 
tes annonces faisant appel à cas philantro- 
pas ns seront Insérées que si la place libre 
le permet. 

Seront refusées toutes les annonces visant 
à vendra ou échanger des listes ou copies de 
logiciels non garantis "d’origine", ainsi que 
toute annonce Incitant au piratage. 

En conséquence, réfléchissez bien avant 
d'anvoyar vos textes. 

Les petites annonces doivent impérativement 
nous parvenir sur la grille (découpée ou pho¬ 
tocopiée). le texte étant rédigé é raison d’un 
caractère par casa. 

Enfin, toute annonça non accompagnée de 
timbres ns sera pas Insérée. 

Cause abandon activité, vends combinaison plan 
che à voile absolument neuve : 250 F. D. 
BONOMO tél 99.52.98.11. 

Vends poui ATMOS : 2 lots de 30 cassettes à prix 
sacrifié, cause achat Sédoric. 

Recherche manuel d'utilisation de l'imprimante Sei- 
kosha GP-250X pour utilisation graphique avec un 
ATMOS. V. CAUQUIL, 38 bis rue des Brus. 81000 
ALBI. tél.: 63.54 73.63. 

Vends lot cassettes ORIC-ATMOS : 1000 F (ou au 
détaill Pinball. Formule 1. Lorigraph 1815. Chess 
II. etc. garanti d'origine. Tél.: 43.23 26.84. 

Vends Lorigraph. Vortex et divers logiciels pour 
ATMOS. Demander Julien DUVAL au 
84.21.69.83. 

Vends imprimante peu servi Gémini Star (parallèle I 
17 500 FB. 071727096 EROBOI Tourette. kl 
5650 BIESME (Belgique). 

Vends moteur pas à pas 200 pas pour table XY. 
état neuf : 200 F Tél.: (1) 42.08 41.56 


Echange programmes (env. 100) sur K7 ou sur lect. 
disqu. Jasmin 2. Thierry BRIER, 20 rue 8renu. 
92230 GENNEVILLIERS. 

Echange ORIC-1 + nombreux programmes contre 
épave de micro-ordinateur ou carte contrôleur 
(Microdiscl. Didier CHOTEAU, tél.: 22.47.40 12 
Amiens. 

Vends imprimante SEIKOSHA GP 500A. 50 cps. 
80 colonnes, papier informatique, édition textes, 
graphismes. Tél.: (Il 34.77.21.18. 

Vends Jasmin Multifich (version 3.1) : 470 F. 
Crayon optique : 250 F ou échange les deux contre 
MCP 40. J. FAYOLLE, tél.: 70.45.44.08. 

ORIC-ATMOS cherche contacts pour échanger jeux 
sur K7. Joël FAROUX, 3 rue Bouzniquah. RABAT, 
Maroc. 

Vends ATMOS + disquettes + K7 + écran vert 
+ GP 100A + pavénum. + 15 disquettes +■ 15 
K7 + crayon optique + joystick : 6500 F. Tél.: 
69.24.98.03 après 19h Stéphane. 

Cause double emploi, vends imprimante MCP 40. 
Tél.: 47.41.64.18 après 19h. 

Vends Jasmin + Easytexte + Amifiche + gestion 
familiale + livres : 2100 F MCP 40 : 700 F. 
ATMOS : 500 F Tél : 60 43.27.56 après 20h 
Grigny 91. 

Cherche épave imp. MCP 40 avec les deux moteurs 
en état de marche : prix max 150 F. Tél.: 
44 87.25.45 après 18h30. 

Vends ATMOS 112.12.851 exc. état + prise péri- 
tel + cordon impr. Centronics + logiciels. Tél.. 
39.91.20.43 après 19h. 

Cherche tjs interface ou plan pour décodeur 
Canal -i- avec ou sans ATMOS. Philippe NAGOT, 
Battighy, 54115 FAVIERES, tél.: 83.25 12.05. 

Vends micro ordinateur Thomson T07.70 état 
neuf : 1780 F. Vends pour T07.70 périphériques 
+ livres + logiciels. Tél.: (Il 34.51.53.76 (soir). 

Vends plusieurs programmes ORIC/1 ATMOS. Lau¬ 
rent BARDET. Les Goutiers. 61980 BONSMOU 
LINS. 


Vends MCP 40 très peu servi : 800 F. Vends dis 
quettes 5" 1/4 vierges M CLAUDE, tél : 
43.78 84.68 après 18h 

Cherche programme sur JASMIN adapté à géné¬ 
alogie. F. BIGEY. BP 103. 81003 ALBI 

Cherche pour ATMOS ou ORIC-1 programme lan¬ 
gage FORTH. Cherche également Sédoric. G. 
HOCHEPOT. 4 rue Grande Ceinture. 95100 
ARGENTEUIL. 

Achète logiciel "Astrocalcul" naguère commercia¬ 
lisé par TRAN (pour ORICI. Té( : 89 44.25 15 

Urgent vends imprimante Seikosha GP 100 
1000 F. Tél : 42.26.86.70 après 19h 

Cause achat Microdisc-Sedoric, vends pour ORIC 
ATMOS a prix sacrifié lots de cassettes (arcade, 
aventure, utilitairel. Recherche programmes avec 
hard copy d’écran Hires pour imprimante Seikosha 
GP 250X avec un ATMOS. V CAUQUIL, 38 bis rue 
des Brus. 81000 ALBI. tél.: 63.54.73.63. 

Vends ATMOS 48 K : 1500 F, 10 cassettes logi¬ 
ciels anglais : Chess. Aigle d'Or. Delta, etc. + 14 
livres, jeux Tél.: 45.20 46.63. 

Vends table graphique neuve Graphiscop II + K 7 
+ manuel + interface ORIC 1 /ATMOS + cadeau : 
1200 F. Echange jeux K7. Tél.: 56.39 27.06 (HBI. 

Cherche adhérants pour club Fanoric de préférence 
région Montauban. Ecrire à S. JAÎCH, Escatalens, 
82700 MONTECH. tél.: 63.68.71.12. 

Vends Ampli-bus : 250 F (neuf 350 Fl ou synthé 
vocal + cordon : 450 F (neuf 650 F). G. WEYMES- 
KIRCH. Rue des Chenevières, 54480 CIREY. 

Vends carte série parue dans n° 15 THEORIC 
complète et at. neuf construction pro. Tél.: 
67.65.20.59 après 18h. 

Club ORIC cherche club pour échange programmes, 
contacts. Danier ROHR. Camping municipal de 
Canne Ecluse. 77130 MONTEREAU. 

Vends synthétiseur vocal ATMOS + câble, très 
peu servi (15 jours), le tout : 340 F. Patrice GOUR 
NAY, tél.: 31.97.13.11 (envoi gratuitl. 


ANNONCEZ - VOUS ! 

les petites annonces et les messages 



Coupon à renvoyer accompagné de 3 timbres à 2,20 F à : 
SORACOM, La Haie de Pan, 35170 BRUZ 
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livrer 



Electronique «ur AMSTRAD 
P. BEAUFILS 95 F 

Electronique aur MSX 
P. BEAUFILS 95 F 


TECHNIQUE 


Propagation daa ondaa, tome 1 

Sarga CANIVENC, F8SH 

Un univari à découvrir 165 F 

Propagation daa ondea, tome 2 

Sarga CANIVENC, F8SH 

Cat ouvrage encore plus important 

traita des tous les modes de 

propagation an UHF 253 F 

Technique da la BLU - 2* édition 
G. RICAUD, F0CER 

Approcha pratiqua de la BLU 95 F 

Concevoir un émetteur expérimental 
P. LOGLISCI 

Concevoir soi-méme ion émetteur ! 69 F 

Synthétiseur* da fréquence 
M. LEVREL 

Sa familiariser avec las 

nouvalles techniques 125 F 

Interférence* radio - des solutions 

F. MELLET *t K. PIERRAT 

Des solutions i vos problèmes 

de brouillage 35 F 

Télévisions du monde 

P. GODOU 

Un catalogue da mires 

et une longue expérience 

mis è votre disposition par 

l'auteur 110 F 

Le radioamateur et la carte QSL 

Préfixes et QSL-managers et 

bureaux dans le monde 

72 pages 15 F 

QSO en radiotéléphonie 

français-anglais 

L. SIGRANO 

Un aide-mémoire pour des 

QSO plus faciles 25 F 

Cours de lecture au son 

Les cassettes avec livret 195 F 

La réception des satellites météo 

Loïc Kuhlmann 

Photos, schémas, montages 

Comment réaliser une station 145 F 

MEGAHERTZ broché n° 3 

(de 14 è 19) 70 F 




COLLECTION 

POCHE 

INFORMATIQUE 


Communiquez evax ZX81 


Jousz avec Hector 


E. DUTERTRE et D. B0N0M0 


E. DUTERTRE 

48 F 



Joui; avec Aquariui 


2* édition 

90 F. 

L. GENTY 

45 F 



Naviguez sur ORIC et ATMOS 


Communiqua; avec ORIC 1 st ATMOS 

E. JACOB at J. PORTELLI 

45 F 

E. DUTERTRE, D. B0N0M0 

145 F 

Extensions du ZXB1 


Mystères du Lsser 


E. DUTERTRE 

48 F 

Denis BOURQUIN 


Jouez avec AMSTRAD 


Connaître è fond sa machine 

148 F 

KERLOCH 

48 F 

Mystères d'Alice ou li pratique du 6803 

MEGAHERTZ Hors Séria 


A. BONNEA'JD 


Informatique 

30 F 

Une des meilleures critiques de la presse 151F 

Transit Tsrrs Luns 


Mieux programmer sur ATMOS 


Préfaça de 0. BAUDRY 

20 F 

M. ARCHAMBAULT 


Manœuvre du catamaran de croisière 

Tout un programme 

110 F 

SEGALA 

49 F 

Interfscsi pour ORIC-1 st ATMOS 




M LEVREL 


Jouez avsc MUb 


Rendre son ORIC encore plus 


E. DUTERTRE 


performint 

59 F 

Collection poche 

40 F 

Apprenez i eiectromque tur unit aimus 



P. BEAUFILS 


PRESSE 


Miaux voir les ohénomànai électroninues UHF 



Communiquez avec AMSTRAD 




0. B0N0M0 tt E. DUTERTRE 

90 F 

CPC Revue AMSTRAD 




Le numéro 

19 F 

Mieux programmer sur AMSTRAD 


(Mensuel) abonnement 1 in 

180 F 

M. ARCHAMBAULT 

85 F 



Plus loin avec le X07 


THEORIC Revue ORIC/ATMOS 


Michel GAUTIER 


Le numéro 

30 F 

Un titre pour un programme 1 

85 F 

(Mensuel) abonnement 1 an 

270 F 



Réédition des programmes du livre 

Communiquez avec votre ZX81 150 F 

Canette programmes Communiquez avec AMSTRAD 190 F 
Disquette programmes Communiquez avec AMSTRAD 250 F 

Cassette programmes Communiquez avec ORIC et ATMOS 190 F 


Précisez ORIC-1 ou ATMOS è la commande. 

Adressez vos commandos à i 
SORACOM, Lo Halo do Pan, 35170 BRUZ 

(Règlement comptant à la commande + port 10 %). 



















ENFIN DISPONIBLE ! 

Nous vous l'annoncions depuis longtemps 
Vous l'attendiez impatiemment. 



ATTENTION ! 

Les abonnés à THEORIC 
recevront une offre spéciale 
à prix très réduit... 


Prix : 151 F + 9 F de port. 


LE LIVRE 
QUE TOUT 
PROGRAMMEUR 
AVANCE 

DOIT POSSEDER 

mm 

35170 BRUZ 


